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-REM € 


IDENTIFICATION 
PRODUCT CODE: AC-T875A-MC 
PRODUCT NAME: COKTAAO KTJ11-B DIAGNOSTIC 
PRODUCT DATE: JULY, 1984 
MAINTAINER: SMALL SYSTEMS DIAGNOSTIC ENGINEERING 


SHOUL CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBLITY IS ASSUMED FOR THE USE OR RELIABILITY OF SOFTWARE ON 
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED COMPANIES. 


COPYRIGHT (C): 1984 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL POP UNIBUS MASSBUS 
DEC DECUS DECTAPE DECX/11 


THE pt fit rte A IN THIS DGCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
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1. ABSTRACT 


THE FOLLOWING 5 te te TESTS THE UNIBUS ADAPTER (UBA) MODULE, KTJ11-B8. 

THE FUNCTIONALITY OF THE MODULE IS: UNIBUS - PMI BUS ADAPTER (WHERE PMI IS 

A FASTER VERSION OF A Q22-BUS), M9312 COMPATIBLE BOOT FACILITY, AND THE UNIBUS 
MAP LOGIC. THE MODULE ALSO HAS A DMA CACHE STORE, UTILISED FOR DOING DMA 
TRANSFERS FROM MEMORY TO UNIBUS DEVICES. THE UBA CAN BE PROGRAMMED TO DO 
DIAGNOSTIC CYCLES TO VERIFY SOME OF THE FUNCTIONALITY WITHOUT REQUIRING 

ANY OF THE PERIPHIRALS TO BE ACTUALLY CONNECTED TO THE UNIBUS. 


2. RUN-TIME REQUIREMENTS 


THIS DIAGNOSTIC IS THE ONLY ONE WRITTEN SPECIFICALLY FOR THE UBA MODULE. 
THEREFORE, DEPENDING ON THE ENVIRONMENT IN WHICH THE PROGRAM IS RUN, DiFFERENT 
DEVICES CAN BE USED. 


MINIMUM HARDWARE NEEDED TO RUN THE DIAGNOSTIC: 


1) KDJ11-B8 CPU MODULE 

2) AT LEAST 286K OF MEMORY 
3) KTJ11-8 UBA MODULE 

4) CONSOLE TERMINAL 

S) LOAD MEDIA 


TO DO FURTHER FUNCTIONAL VERIFICATION OF THE MODULE 2 UNIBUS EXERCISERS (UBE) 
ARE REQUIRED. THIS SHOULD BE DONE IN MANUFACTURING OR ANY OTHER ENVIRONMENT THAT 
NEEDS VERIFICATION OF ALL FUNCTIONS OF THE UBA. 
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3. STARTING PROCEDURE 


THE DIAGNOSTIC IS A STANDART XXDP PROGRAM WITH APT INTERFACE. THEREFORE,IN 
STANALONE MODE, AFTER BOOTING THE SYSTEM, TYPING IN: 


R OKTAA? 


WILL START THE PROGRAM, WHICH WILL THEN PROMT THE OPERATOR FOR THE SOFTWARE 
REGISTER SWITCH SETTING DESRIBED BELOW. 


COKTAAO KTJ11-8 DIAGNOSTIC 

SWR = XXXXXX NEW = 
WHERE “XXXXXX" CORRESPOND TO THE OLD SETTING OF THE SOFTWARE a REGISTER. 
AT THIS POINT AN OPERATOR CAN EITHER TYPE IN A CARRIAGE RETURN, WHICH WOULD 
LEAVE THE SOFTWARE SWITCH REGISTER AS IT WAS, OR CHANGE IT, ACCORDING TO THE 
FOLLOWING PARAMETERS. 


OPERATIONAL SWITCH SETTINGS 


SW<15>*1... ERROR 
SW<14>*1... LOOP ON CURRENT TEST 


SW<135>=1... INHIBIT ERROR TYPEOUTS 

SW<1l>*1... INHIBIT ITERATIONS 

SW<10>=1... RING TTY BELL ON ERROR 

SW<9>21... LOOP ON ERROR 

SW<8>=1... LOOP ON TEST SPECIFIED IN SW<5> 
THRU SW<O> 


FOR EXAMPLE: 

SWR = 000000 NEW = 100000 
IN THIS CASE THE OLD SOFTWARE SWITCH REGISTER DIDN’T SET ANY FLAGS. THE 
NEW SETTING WILL MAKE THE DIAGNOSTIC HALT ON ERROR. 


IF RAN FROM A UFD CHAIN FILE, THE DIAGNOSTIC IS FULLY UNDER CONTROL OF 
THE UFD MONITOR THAT WILL REPORT ONLY PASS/FAIL MESSAGES. 
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4. ERROR REPORTS 


IF RAN IN STANDALONE MODE, THE DIAGNOSTIC REPORTS ALL ERRORS TO A FUNCTIONAL 
LEVEL AND THEN CONTINUES. FAILING PROGRAM COUNTER, TEST NUMBER, AND ERROR 
NUMBER ARE PRINTED OUT FOR ALL ERRORS. WHERE POSSIBLE EXPECTED AND RECEIVED 
DATA ARE ALSO PROVIDED. 

REFER TO OPERATIONAL SWITCH SETTINS IF ANYTHING DIFFERENT IS REQUIRED. 


EXAMPLE OF ERROR PRINTOUT: 
ERROR IN THE too * ad ROM SECTION 


oy ERROR 

ss 13650 31 
5. EXECUTION TIME 
THE DIAGNOSTIC RUNS A FULL PASS IN LESS THAN A MINUTE. 
6. UBA REGISTER DEFINITION 


DDR THE DIAGNOSTIC DATA REGISTER IS A BUFFER THAT PROVIDES THE ABILITY OF 
READING AND WRITING THE DATA TO AND FROM MEMORY IN DIAGNOSTIC MODE. 


OCSR THE DIAGNOSTIC CONTROL AND STATUS REGISTER PROVIDES MEANS OF GOING IN 
oath al ME ayant: MODE AND ALSO OF INITIATING DIAGNOSTIC DATI FROM 


KMCR THE KTJ11-B MEMORY CONFIGURATION REGISTER IDENTIFIES THE AMOUNT OF 
UNIBUS MEMORY PERSENT IN THE SYSTEM. IT IS ALSO RESPONSIBLE FOR 
CONTROLLLING AND DESCRIBING THE STATUS OF THE DMA CACHE. 


SEQ 0005 
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fT. TESTS LIST 


- UNIBUS MAP REGISTER TESTS 
UNIBUS MAP REGISTER BIT PATTERN 
UNIBUS MAP ws oe dary ADDRESS UNIQUENESS 
UNIQGENESS BETWEEN LOW MAP REGISTERS AND HIGH MAP REGISTERS 
DCSR REGISTER RESPONSE TEST 
KMCR BITS TEST 
UNIBUS TIMEOUT TEST 
DATA OUT WITHOUT RELOCATION 
DATA IN WITHOUT RELOCATION 


CONTENT OF DOR 
yl ACCESSING OF UNIBUS MAP REGISTERS 
DISABLING OF THE 


MAPPING REGISTERS 
NXM MEMORY TIMEOUT 
CARRY PROPOGATION TEST 
he Gat CARRY PROPOGATION TEST 


U TES 
MAIN MEMORY DISABLE 
CACHE PRESENCE 
CACHE DISABLED AND KMCR 
AVAILABILITY OF SETS 
DEALLOCATION OF SETS 
CACHE WITH RELOCATION DISABLED 
WRITE CYCLES AND CACHE 
OMA READ WITH INDEX NOT ZERO 
TAG REGISTERS 
CACHE RAM BIT PATTERN TEST 
BOOT ROMS TEST 
UNIBUS MEMORY TEST 
UBE AUTOSIZING ROUTINE 
NPG ARBITRATION 
NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 
BR7-BR4 ARBITRATION 
ARBITRATION BETWEEN INTERRUPTS AND PIRQ‘S 
mone Sl — INTERRUPTS FROM 2 UBE 


NO INTERRUPT TEST 

UNIBUS DEVICE DATO CYCLE 

UNIBUS DEVICE DATI CYCLE 

UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 
UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 
ALU TEST USING UBE 

CARRY PROPOGATION TEST USING UBE 

NXM TEST USING UBE 

RELOCATION WITH UNIBUS MEMORY 


UNIBUS DEVICE I/0 PAGE READ CYCLE 

UNIBUS DEVICE I/0 PAGE WRITE CYCLE 

MAPPING REGISTERS TEST USING UBE 

UNIBUS DEVICE DATI CYCLE WITH CACHE ENABLED 
WRONG PARITY AND CACHE 
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$SWR=167400 
$s 


MK = 300 
.TITLE KTJ11-8 DIAGNOSTIC 
:¢COPYRIGHT (C) MAY 83 
:#DIGITAL EQUIPMENT CORP. 
s@#MAYNARD, MASS. 01754 


3% 
3#PROGRAM BY DIAG. ENG. 


34 

3*THIS PROGRAM WAS ASSEMBLED USING THE PDP-1i1 MAINDEC SYSMAC 
3*#PACKAGE (MAINDEC-11-DZQAC-C8), OCT, 1982. 

34 

$TN=1 

-SBTTL OPERATIONAL SWITCH SETTINGS 


SWITCH 


HALT ON  e 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 
INHIBIT ITERATIONS 
BELL ON ne 

LOOP ON E 


34 8 
-SBTTL_ BASIC DEFINITIONS 
ADDRES 


RROR 
LOOP ON TEST IN SWR<5:0> 
S OF THE STACK POINTER eee 1100 eee 


3sBASIC DEFINITION OF ERROR CALL 
IoT 33;BASIC DEFINITION OF SCOPE CALL 
a aoe DEFINITIONS 
11 3;CODE FOR HORIZONTAL TAB 
3;CODE FOR LINE FEED 
3sCODE FOR CARRIAGE RETURN 
3sCODE FOR CARRIAGE RETURN-LINE FEED 
ssPROCESSOR STATUS WORD 


3sSTACK LIMIT REGISTER 
3;PROGRAM INTERRUPT REQUEST REGISTER 
+S AROUARE SWITCH REGISTER 
DDISP= 177570 HARDWARE DISPLAY REGISTER 
3;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO~ #0 GENERAL REGISTER 
Ris REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
AL REGISTER 
GENERAL REGISTER 
+3STACK POINTER 
Cs 67 3sPROGRAM COUNTER 
;¢PRIORITY LEVEL DEFINITIONS 
PRO= 0 ;sPRIORITY LEVEL 0 
PRi-= 40 ssPRIORITY LEVEL 1 
PR2= 100 ssPRIORITY LEVEL 2 
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SEQ 0008 
BASIC DEFINITIONS 
000140 PR3= 140 ssPRIORITY LEVEL 3 
000200 PR4= 200 ssPRIORITY LEVEL 4 
000240 PRS= 240 ssPRIORITY LEVEL 5 
000300 PR6= 300 1 TE RTOATTY LEVEL : 
000340 PR7= 340 sPRIORITY LEVEL 7 
3#"SWITCH REGISTER” SWITCH DEFINITIONS 
100000 SW15= 100000 
040000 $W14= 40000 
020000 SWi3= 20000 
010000 SWi2= 10000 
004000 SW11= 4000 
002000 $W10= 2000 
001000 SWO9= 1000 
SWO8= 400 
000200 SWO7= 200 
000100 SWO6= 100 
000040 SWwOoS= 40 
000020 SWO4= 20 
000010 SWO3= 10 
000004 SWO02= ' 
000002 SWOl= 2 
1 SWO0O= 
001000 SW9= Swo9 
000400 SW8= SWO8 
000200 SW7= SWO7 
000100 SW6= SWO6 
000040 SWS= SWOS 
000020 SW4s SWO4 
000010 SW3= SWO3 
000004 SW2= Sw02 
000002 Suis SWO1 
000001 ) 
S#DATA = DEFINITIONS (BITOO TO BIT15) 
100000 BIT15= 
040000 BIT14= 40000 
020000 BIT13= 20000 
010000 BITi2= 10000 
004000 BIT11= 4000 
002000 BIT10= ;¢ 
001000 BITO9= 1000 
BITOS= 400 
000200 BITO7= 200 
000100 BITO6= 100 
000040 BITOS= 40 . 
000020 BITO4= 20 
000010 BITO3= 10 
000004 BITO2= 4 
000002 BITOl= 2 
000001 BITOO= 
001000 BIT9= BITO9 
000400 BIT6= BITO8 
000200 BIT7= BITO7 
000100 BIT6= BITO6 
000040 BITS= BITOS 
000020 BIT4= BIT04 
000010 BIT3= BITO3 
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BASIC DEFINITIONS 


BITi= phat 
BITO= BIT 
;*BASIC CPU" TRAP prewar” ‘De oot 
ERRVEC= 4 TIME OUT AND OTHER ERRORS 
RESVEC= 10 | RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 33"T" BIT 
TRTVEC= 14 3sTRACE TRAP 
BPTVEC= 14 3 sBREAKPOINT TRAP (BPT) 
IOTVEC= 20 3s INPUT/OUTPUT TRAP (IOT) #*SCOPE+¢e 
PWRVEC= 24 3sPOWER FAIL 
EMTVEC= 30 het oe A a (EMT) *#sERROR+ss 
TRAPVEC=34 ye TRAP” 
ssTTY KEYBOARD VECTOR 
PETTY PRINTER VECTOR 
PIRQVEC=240 3sPROGRAM INTERRUPT REQUEST VECTOR 
SBTTL MEMORY MANAGEMENT DEFINITIONS 
:4KT11 VECTOR ADDRESS 
MMVEC= 250 
3#KT11 STATUS REGISTER ADDRESSES 
177572 177572 
177574 
177576 
172516 72516 
3*KERNEL “I” PAGE DESCRIPTOR REGISTERS 
KIPDRO= 172300 
KIPOR1= 
KIPOR2= 
KIPOR3= 
KIPDR4= 
KIPORS= 
KIPDR6= 
KIPDR7= 172316 
am emg Sige DESCRIPTOR REGISTERS 


KIPARO= 
KIPARi= 
KIPAR2= 
KIPAR3= 
KIPAR4= 
KIPARS= 
KIPAR6= 1 
KIPAR7= 172356 
3#KERNEL “D“ PAGE ADDRESS REGISTERS 
KDPARO= 172360 
KDPAR1= 
KDPAR2= 
KDPAR3= 
KDPAR4= 

172372 KDPARS= 172372 
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MEMORY MANAGEMENT DEFINITIONS 
172374 KDPAR6= 172374 
172376 KDPAR7= 172376 
-SBTTL UNIBUS MAP REGISTER DEFINITIONS 


;#THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPLXx’ 
3;*THE UPPER 6 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPHXxX’ 


SEQ 0010 


MAPL30 
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UNIBUS MAP REGISTER DEFINITIONS 


-SBTTL UBA SPECIFIC REGISTERS 


he ds 177572 MEMORY MANAGEMENT REGISTER DEFINITIONS 
177576 
172516 
000001 
177520 
177730 
177732 
177734 
177746 
177522 


120001 
170014 


FLAG FOR UFD MODE 

BOOT/DIAGNOSTIC STATUS REGISTER 
DIAGNOSTIC CONTROLLER STATUS REGISTER 
DIAGNOSTIC DATA REISTER 

KTJ11-B8 MEMORY CONFIGURATION REGISTER 
CACHE CONTOL aeereoae FOR CPU 


TI 
SIMULTANEOUS GO ADDRESS FOR MULTIPLE UBE'S 


TRAP CATCHER 


;#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 
;#SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
ssLOCATION 9 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 3 3 SOF TWARE DISPLAY REGISTER 
SWREG: -WORD O 3;SOFTWARE SWITCH REGISTER 
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000052 


000024 
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001160 
002500 


000777 001160 
002500 


a 


SEQ 0012 


- #200 
CLR $TMPO ' 
JMP @OSTART 


MOV #777, $TMPO 
JMP QeSTART 


-SBTTL ACT11 HOOKS 
§ SPEREREEEERERESERERERESEEERERERSEEEEEEREEEESEEREREEESRESEEEEEEESE | 


sHOOKS eS BY ACT11 


- #220 


SvPC=. ;SAVE PC 
FENDAD $31)SET LOC.46 TO ADDRESS OF SENDAD IN .$E0P 
“WORD 0 ::2)SET LOC.52 TO ZERO 

* =$SVPC 33 RESTORE PC 


.SBTTL APT PARAMETER BLOCK 
§ SPEARS REREERESEESEEEEEEESEREEEEEEEEESESEERERESEEEEERESEEEERE RES 
3SET LOLATIONS 24 AND 44 AS REQUIRED FOR APT 
§ SERARERERESEEEEREREREREEESEEEESESESERESEEEEEEEEESEREEEEEEEEEEES 
-$X*. 3;SAVE CURRENT LOCATION 
224 33SET POWER FAIL TO POINT TO START OF PROGRAM 
200 33FOR APT START UP 
244 3sPOINT TO APT INDIRECT ADDRESS PNTR. 
$APTHDR ;;POINT TO APT HEADER BLOCK i 
-*.$X  3;RESET LOCATION COUNTER 
fF PRRREEEEREEEERESEESEEEEEEEEEEEREREEESESEESEESEEEERE SES EEEDEEEES 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
s INTERFACE SPEC. 


$APTHD: 

$HI8TS: .WORD O 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

$MBADR: .WORD $MAIL 3:ADDRESS OF APT MAILBOX (BITS 0-15) 

$TSTM: .WORD 33RUN TIM OF LONGEST TEST 

$PASTM: .WORD 33;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
$UNITM: .WORD ; sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


-WORD $ETEND- sMAIL/2 3; sLENGTH MAILBOX-ETABLECWORDS ) 


KTJ11-B8 DIAGNOSTIC 
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-SBTTL COMMON TAGS 
fF RRRREREEREREREEREEEEEREEEEREREEEAERERERERRERREEEEEEEEEEEEEEE EES 
3*#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

3*#USED IN THE PROGRAM, 


$CMTAG: 


$AUTOB: . 


$ESCAPE: 
$BELL: 


$QUES: 
$CRLF: 
$LF: 


- #1100 


oooooooooorooccoocoo 


oo 
a4" 
nD 
v 


oo OFrnoe 
fw 


N1 


:sSTART OF COMMON TAGS 


3:;CONTAINS THE TEST NUMBER 

3 ;CONTAINS ERROR FLAG 

3sCONTAINS SUBTEST ITERATION COUNT 
:sCONTAINS SCOPE LOOP ADDRESS 
3:CONTAINS SCOPE RETURN FOR ERRORS 
;:;CONTAINS TOTAL ERRORS DETECTED 
3:CONTAINS ITEM CONTROL BYTE 
3:;CONTAINS MAX. ERRORS PER TEST 
:sCONTAINS PC OF LAST ERROR ee 
3;CONTAINS ADDRESS OF ‘GOOD’ DAT 
3sCONTAINS ADDRESS OF ‘BAD’ DATA 
s;CONTAINS ‘GOOD’ = 

3; sCONTAINS * DATA 

; sRESERVED--NOT TO BE USED 


ssAUTOMATIC MODE INDICATOR 
;s INTERRUPT MODE INDICATOR 


;sADDRESS OF SWITCH REGISTER 

3:ADDRESS OF DISPLAY REGISTER 

ssTTY KBD STATUS 

s3TTY KBD BUFFER 

3:TTY PRINTER STATUS REG. ADDRESS 

3;TTY PRINTER BUFFER REG. ADDRESS 

3 ;CONTAINS NULL CHARACTER FOR FILLS 

: |CONTAINS # OF FILLER CHARACTERS REQUIRED 
3;INSERT FILL CHARS. AFTER A "LINE FEED” 
33"TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES) 


3;USER DEFINED 

:;USER DEFINED 

3;MAX. NUMBER OF ITERATIONS 
;sESCAPE ON ERROR ADDRESS 


<207><377><377> ;;CODE FOR BELL 


42/ 
<15> 
<12> 


3s ;QUESTION MARK 
3:CARRIAGE RETURN 
;;LINE FEED 


$3 Hed koeoKEREESD SEKKAEAEEREEEERESEEREAEAREASEREAEAREESEREEREEEEE EEE 


-SBTTL APT MAILBOX-ETABLE 
$f RERREEEEEEEEEEEREEEREREREEEEEEEREEESEEEEEEEREREREEEEEEEERE SERRE 


-EVEN 


AUNIT 
AMSGAD 


33APT MAILBOX 
3sMESSAGE TYPE CODE 
33FATAL ERROR NUMBER 


0 
ssMESSAGE ADDRESS 


SEQ 0013 


Be 
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APT MAILBOX -ETABLE 


000000 ¢ AMSGLG ;;MESSAGE LENGTH 
33APT ENVIRONMENT TABLE 
000 : 3s sENVIRONMENT BYTE 
000 yw AENVM ;;ENVIRONMENT MODE BITS 
D0 ASWREG ;;APT SWITCH REGISTER 
ssUSER SWITCHES 
33CPU TYPE,OPTIONS 
BITS 15-11*CPU TYPE 
11/0401, cap ong & 11/20*03,11/40204,11/45-05 
11/70=06,P0Q-0 Q=10 
BIT 10*REAL TIME CLOCK 
BIT 9=FLOATING POINT ~ peaeintnees 
BIT 8=*MEMORY MANAGEMENT 
3sHMIGH ADDRESS.M.S. BYTE 
33MEM, TYPE ,BLKOL 
MEM. TYPE BYTE (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC M0S=003 
ssHIGH ADDRESS .BLKO1 
MEM.LAST ADOR. ? BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
3sHIGH ADDRESS.M.S. BYTE 
33MEM. TYPE ,BLKO2 
33MEM.LAST ADORESS,BLKO2 
ssHIGH ADDRESS.M.S.BYTE 
33MEM, TYPE .BLKOS 
33MEM.LAST ADDRESS, BLKO3 
ssHIGH ADDRESS.M.S.BYTE 
3 3MEM. TYPE ,BLKO4 
33MEM.LAST ADDRESS,BLKO4 
3s s INTERRUPT VECTOROL, BUS PRIORITY¢1 
3 s INTERRUPT VECTORO2BUS PRIORITY#2 
33sBASE ADDRESS OF EQUIPMENT UNDER TEST 
3sDEVICE MAP 
ssCONTROLLER DESCRIPTION WORDO1 
ssCONTROLLER DESCRIPTIUN WORD? 
3sDEVICE DESCRIPTOR WORDOO 
ssDEVICE DESCRIPTOR 
3sDEVICE DESCRIPTOR 
3sODEVICE DESCRIPTOR 
ssDEVICE DESCRIPTOR 
3sDEVICE DESCRIPTOR 
3 sDEVICE 
3 sDEVICE 
3 sDEVICE 
3 sDEVICE 
3 sDEVICE 
3 sDEVICE 
ssDEVICE DESCRIPTOR 
3sDEVICE DESCRIPTOR 
3sDEVICE DESCRIPTOR 
3sDEVICE DESCRIPTOR 


SESSSSSSSSSSSSS9099993 
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ERROR POINTER TABLE 


001324 


375 901324 

001326 
377 001330 
378 001332 


381 001334 
362 001336 


384 001340 
385 001342 
386 


388 001344 
389 001346 


391 001350 
392 001352 


395 001354 
396 001356 


398 001360 
399 001362 


402 001364 
ERS 
403 001366 


405 001370 
406 001372 
409 001374 
410 001376 
411 

412 091400 
413 001402 
414 


415 
416 001404 





026666 
031043 


031724 
000000 


026744 
031133 
031740 
000000 


027042 
031211 


031740 
000000 


027105 
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-SBTTL ERROR POINTER TABLE 
3@THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
3*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

s*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 

EACH er IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
sPOINTS TO THE ERROR MESSAGE 


:@NOTEL: 
3*NOTE2: 


8 
SERRTB: 


- SBTTL 
H 


IF $ITEMB 

M 
OH 
oT 
OF 


ERROR DEFINITIONS 
ERROR 1 


SEQ 0015 


+ sPOINTS TO THE DATA HEADER 
ssPOINTS TO THE DATA 
ssPOINTS TO THE DATA FORMAT 


TIMEOUT ON ACCESSING A ee REGISTER 
TEST @ ERROR PC ERROR @ ADDRESS 
TEST, $ERRPC ,ERRNUM, $BDADR 


MAP REGISTER COULD NOT BE CLEARED 
GOOD BAD 


TEST @ ERROR PC ERROR @ DATA DATA ADDRESS 
TEST, $ERRPC ,ERRNUM, $GDDAT , $8DDAT , $BDADR 


MAP REGISTER COULD NOT HOLD PATTERN 
GOOD BAD 


TEST @ ERROR PC ERROR @ DATA DATA ADDRESS 
TEST, SERRPC ,ERRNUM, $GDDAT , $BDDAT , $BDADR 


MAP REGISTER HAS NOT BEEN ADDRESSED CORRECTLY 
GOOD BAD 


TEST @ ERROR PC ERROR @ ADDRESS ADDRESS 
TEST, SERRPC ,ERRNUM, $GDADR, $BDADR 


THERE WAS NO DIFFERENCE FOUND BETWEEN HI AND LO MAP REGIST 
LOW 


HI 
TEST @ ERROR PC ERROR @ MAP MAP 
TEST, SERRPC ,ERRNUM, $GDDAT , $BDDAT 


ERROR IN BITS 3-6,9-14 IN THE — 


. AD 
TEST @ ERROR PC ERROR @ DATA DATA 
TEST, SERRPC ,ERRNUM, $GODAT, $BDDAT 


DCSR DID RESPOND PROPERLY ON RESET 
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001406 


031211 
031740 
000000 


027421 
031211 


031740 
000000 


027451 
031273 
031740 
000000 


027500 
031211 


031740 
000000 


027562 
031346 
031754 
000000 
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SEQ 0016 


GOOD BAD 
TEST @ ERROR PC ERROR @ DATA DATA 
TEST, $ERRPC ,ERRNUM, $GDDAT, $BDDAT 


TEST & ERROR PC ERROR 
TEST, SERRPC ,ERRNUM, $BDADR 


TIMEOUT HAS OCCURED ON ge TO THE OCSR 
ADDRESS 


KMCR BITS 0-5,8 DIO NOT GET SET CORRECTLY 
GOOD BAD 


TEST @ ERROR PC ERROR @ DATA DATA ADDRESS 
TEST, $ERRPC ,ERRNUM, $GDDAT, $8DDAT, $8DADR 


TIMEOUT HAS OCCURED ON ACCESS TO THE KMCR 
TEST @ ERROR PC ERROR @ ADDRESS 
TEST, SERRPC ,ERRNUM, $BDADR 


ERROR IN DATA PATH 
TEST @ ERROR PC ERROR ® PATTERN DDR 
TEST, $F 2RPC ,ERRNUM, $GDDAT , $BDDAT 


ERROR IN DATA OUT 


GOOD BAD 
TEST @ ERROR PC ERROR ® DATA DATA 
TEST, SERRPC ,ERRNUM, $GDDAT , $BDDAT 


ERROR IN DATA IN 
TEST @ ERROR PC ERROR @ PATTERN DDR 
TEST, SERRPC ,ERRNUM, $GDDAT , $BDDAT 


DDR NOT ZERO WHEN OCSR SELECTS UNI8SUS LINES 
GOOD BAD 


TEST @ ERROR PC ERROR @ DATA DATA 
TEST, SERRPC ,ERRNUM, $GDDAT, $BDDAT 


ERROR IN SETTING OCSR<7> 
TEST @ ERROR PC ERROR 0 
TEST, SERRPC ,ERRNUM 
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5. 
530 001624 


027615 
031405 
031764 
000000 


027673 
031246 
031754 
000000 


027740 
031346 
031754 
000000 


030014 
031465 


032010 
000000 


030026 
031346 
031754 
000000 


030046 
031346 
031754 
000000 


030116 
031211 


031740 
000000 
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21 


22 


23 


24 


25 


26 


27 


31 


ce 


~~ eo 


ERROR IN UNIQUE ADDRESSING OF REGISTERS 
TEST @ ERROR PC ERROR @ KMCR PAIR FAILED 
TEST, SERRPC,ERRNUM,KMCR, $BDADR 


REG. PAIR 31. PERFORMS en 
TEST # ERROR PC ERROR @ 
TEST, $ERRPC ,.ERRNUM 


NXM CONDITION COULON'T BE CREATED THRU ALU 
TEST @ ERROR PC ERROR @ 
TEST, $ERRPC ,ERRNUM 


ALU ERROR 


GOOD BAD 
TEST #@ ERROR PC ERROR @ DATA DATA ADDRESS 
TEST, SERRPC ,ERRNUM, $GDDAT, $BDDAT , KIPARG6, $BDADR 


CPU CACHE ERROR 
TEST # ERROR PC ERROR @ 
TEST, SERRPC ,ERRNUM 


KMCR<4-0> DOESN'T DISABLE MATIN MEMORY 
fEST @ ERROR PC ERROR @ 
TEST, SERRPC ,ERRNUM 


SEQ 0017 


KMCR DOES NOT REFLECT EXPECTED STATUS OF THE CACHE/ 
GOOD BAD 


TEST @ ERROR PC ERROR @ DATA DATA 
TEST, SERRPC ,ERRNUM, $GDDAT , $BDDAT 


ERROR IN CACHE TAG REGISTERS 
TEST @ ERROR PC ERROR @ ADDRESS 
TEST, $ERRPC ,ERRNUM,MAPHO1] ,MAPLO1 


ERROR IN THE DMA CACHE DATA RAMS 
TEST @ ERROR PC ERROR # ADDRESS 
TEST, SERRPC ,ERRNUM, MAPLOO 


ERROR IN THE M9312 BOOT ROM SECTION 
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ERROR DEFINITIONS 


031346 OH16 TEST # ERROR PC ERROR 6 
031754 D116 TEST, SERRPC ,ERRNUM 
000900 


0 
ERROR 32 


SEQ 0018 


030343 ERROR IN ARBITRATION LOGIC THRU UBE 
031346 TEST @ ERROR PC ERROR @ 

031754 TEST, SERRPC ,ERRNUM 

000000 


030410 ERROR TRYING TO DO DMA CYCLES THRU UBE 
031346 TEST @ ERROR PC ERROR 6 

031754 TEST, $ERRPC ,ERRNUM 

000000 


030464 ERROR IN THE UNIBUS MEMORY TEST 
031346 TEST @ ERROR PC ERROR @ 
031754 TEST, SERRPC ,ERRNUM 

000000 


030524 UNEXPECTED TIMEOUT HAS a 
031346 TEST @ ERROR PC ERROR @ 
032000 TEST, $BDADR,,ERRNUM 


UNIBUS TIMEOUT a NOT — 
TEST @ ERROR PC ERROR @ 
TEST, $ERRPC, ERRNUM 


DCSR<3> DION'T DISABLE UBA ROM‘S 
TEST @ ERROR PC ERROR @ 
TEST, $ERRPC ,ERRNUM 


ERROR NUMBER FOR REPORT 
TEST NUMBER FOR REPORT 
PMI MEMORY SIZE 
NUMBER OF UBE'S 
UBE #1 INTERRUPT FLAG 
UBE @2 INTERRUPT FLAG 
0 TIMEOUT FLAG 
172100 POINTER TD MEMORY CSR 
WR 20 WRITE BUFFER 
007417 031463 PTRNI6: .WOR 377, 7417,31463,52525,125252,0 16-BIT BINARY DIVIDE 
125252 000000 
oeeee 000025 PTRN6: 17,14,25,52,0 6-BIT BINARY DIVIDE 


-SBTTL CACHE RAM IMAGE TABLE 





Ge 
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CACHE RAM IMAGE TABLE 


SEQ 0019 


é 
3; THE FOLLOWING BLOCK OF DATA WILL BE USED IN THE CACHE RAM BIT TEST 
; THE EXACT ADDRESSES WILL BE FIGURED OUT BY THE PROGRAM DEPENDING 

3; ON THE LOCATION OF THIS TABLE. 

3 


CTBLE: . THE LARGEST @ OF LOCATIONS NEEDED 


OBADR: FIRST ADDRESS OF A FIELD IN TABLE 
FIRST ADDRESS OF 6 FIELD IN TABLE 
FIRST ADDRESS OF C FIELD IN TABLE 
FIRST ADDRESS OF D FIELD IN TABLE 


UNIBUS EXERCISER REGISTER TABLES 
UBE #1 


#1 DATA REGISTER 
1 CYCLE COUNT REGISTER 

ADDRESS REGISTER 
CONTROL REGISTER 1 
CLEAR ERROR REGISTER ADDRESS 
CONTROL REGISTER 2 
VECTOR PC 
VECTOR PSW 


0 3 
0 3 
0 H 
0 3 
f¢) H 
0 3 
: O 3 
0 3 


e 
: 


DATA REGISTER 
CYCLE COUNT REGISTER 


REGISTER 1 
CLEAR ERROR REGISTER ADDRESS 
CONTROL REGISTER 2 


ocooooooo 


SW: ; UBE #2 VEC 
-SBTTL SUBROUTINE - DIAGNOSTIC_ DATA. OUT SUBROUTINE 


INPUTS: PATTERN TO BE STORED IN DDR AND THEN WRITTEN TO MEMORY $GDDAT 
TEST_LOCATION TO BE WRITTEN TO (16 OR 22 BITS) (R1) 


ON RETURN FROM poe he 2 ad LOCATION SHOULD HAVE THE SAME DATA 
AS DOR AND THE SAME AS PATTERN 

THE PROGRAM HAS TO BE RUNNING IN DIAGNOSTIC MODE WITH DIAGNOSTIC 
NPR REGISTER SELECTED 


BGNROUT INE 
MOVE PATTERN TO DOR 
DO EXTERNAL WRITE FROM TEST_LOCATION 
RETURN 


ENDROUT INE 
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SUBROUTINE - DIAGNOSTIC_DATA_OUT SUBROUTINE 
643 3 
4 Boo cece ee cc ewe ese ccwccescesccceses senses esnesesesesescsesecesocesescesesses 
64 
646 002210 013737 001124 177732 ODOUT: MOV $GDDAT ODOR ; STORE PATTERN IN DOR 
647 002216 011111 1$: MOV (R1),CR1) 3s EXTENAL READ TO PROVIDE ADDRESS 
648 002220 000207 RTS PC 
ss 
6 
651 .SBTTL SUBROUTINE - DIAGNOSTIC_DATA_IN SUJROUITNE 
652 
653 3¢ INPUTS: PATTERN TO BE WRITTEN TO MEMORY AND THEN TO DOR $GODAT 
4 3¢ TEST_LOCATION TO READ FROM (16 OR 22 BITS) (R1) 
6 3 
656 3* ON RETURN FROM SUBROUTINE DDR SHOULD HAVE THE SAME DATA AS 
657 > SPECIFIED MEMORY LOCATION AND THE SAME AS THE PATTERN 
658 3* THE PROGRAM HAS TO BE RUNNING IN DIAGNOSTIC MODE uri DIAGNOSTIC 
= 3@ NPR REGISTER SELECTED. 
3 
661 ; BGNROUTINE 
662 3 
663 3 LET DOCSR<O> = #1 
664 3 DO EXTERNAL WRITE FROM TEST_LOCATION 
665 : RETURN 
666 3 
667 3 ENDROUTINE 
668 Fy 
444 Soccer cee mcm cw ewww cece cece erences ence ce cwe new nnececeneceseccscses- coccce 
671 002222 052737 000001 177730 ODIN: BIS BITOO,DCSR s SET GO BIT 
672 002230 011111 2s: MOV (R1),CR1) : PROVIDE ADDRESS FOR DMA 
673 002232 000207 3$: RTS PC 
674 
675 
676 -SBTTL SUBROUTINE - TIMEOUT_ROUTINE 
o 3@ THIS ROUTINE IS USED TO FLAG AN UNEXPECTED TIMEOUT. 
3 
oo. 3 BGNROUTINE 
3 
681i 3 STORE ADDRESS THAT CAUSED TIMEOUT 
682 3 ERROR - 
683 3 RETURN 
684 8 
685 3 ENDROUTINE 
686 Fy 
244 rE ede 
689 002234 011637 001122 TIMOUT: MOV (SP), $BDADR : STORE ADDRESS THAT TIMED OUT 
690 002240 104035 ERROR +35 3 UNEXPECTED TIMEOUT 
691 002242 000002 RTI 
692 
693 
te .SBTTL SUBROUTINE - MAP_PROGRAM_AREA 
ye 3* THIS ROUTINE MAPS THE PROGRAM AREA TO THE FIRST 32K 
Fy 
698 : BGNROUTINE 


He 


SEQ 0020 


KTJ11-B8 DIAGNOSTIC 


Te 
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SUBROUTINE - MAP_PROGRAM_AREA 


013702 
012737 
012737 


012737 
000403 


022737 


MAP PROGRAM AREA THRU KIPAR'S TO FIRST 32 K 
NO CACHE BYPASS 
RETURN 


ENDROUT INE 


3;PUSH RO ON STACK 
3;PUSH R1 ON STACK 
) 33PUSH R2 ON STACK 
#172300, RO RO POINTS TO FIRST KIPDR 
977406,(RO)-+ 
R1,1$ 
#172340,RO0 


DO FOR ALL 8 REGISTERS 

. 4K PAGE, CACHE ON, READ/WRITE 
. CONTINUE TILL DONE 

RO POINTS TO FIRST KIPAR 

DO FOR ALL 8 REGISTERS 


START WITH ADDRESS 0 
° - _ ADDRESS 


CONTINLE _ DONE 
CRO)+ CLEAR KIPA 
#177600, (RO) I/O PAGE 10” KIPAR7 
(SP)+,R2 3 sPOP STACK INTO Re 
(SP)+,R1 33POP STACK INTO R1 
ene 33POP STACK INTO RO 


-SBTTL SUBROUTINE - MEMORY SIZE 
3 THIS ROUTINE SIZES MAIN (PMI) MEMORY IN 4K WORDS. 
BGNROUT INE 

REMAP TIMEOUT VECTOR AND PROGRAM AREA 

NABLE MEMORY MANAGEMENT UNIT 


E 
DO UNTIL TIMEOUT OR ALL 2M CHECKED 
- .. LOCATION O IN EACH 4K PAGE THRU KIPAR6 


ENDROUT INE 


MEMSIZ: MOV ERRVEC ,R2 SAVE TIME OUT VECTOR 
MOV 03$ ,ERRVEC POINT NEW TO PROGRAM 
MOV 0340 ,ERRVEC+2 AT PRIORITY 7 


3 

3; SIZE MEMORY IN 4K WORDS 
200 ,KIPAR6 FIRST 
2s GO TRY. To ACCESS 
#200 ,KIPAR6 NEXT 4 


0140000 ‘ ACCESS. THRU KIPAR6 
#170000 ,KIPAR6 * LAST PAGE? 


SEQ 0021 





Je 


KTJ11-8 DIAGNOSTIC MACRO M1200 25-JUL-84 17:10 PAGE 10-7 
SUBROUTINE - MEMORY SIZE 


752 002402 1$ . IF NOT, BRANCH 
04 000040 IF 2M PRESENT, ONLY 21ST MASKED 
4 BRANCH 


RESTORE STACK 
R2, ERRVEC RESTORE TIMEOUT VECTOR 
PC ; RETURN 


SEQ 0022 


-SBTTL SUBROUTINE - SIZE UNIBUS MEMORY FROM KMCR 


3 ON RETURN FROM THIS SUBROUTINE R2 WOULD HAVE PAR VALUE 
3¢ OF UNIBUS MEMORY 


6 
013701 UMSIZ: MOV SAVE KMCR 
000040 1$: BIC LEAVE ONLY @ OF PAGES 
MOV , START W/O — MEMORY 
100$: SUB . : Se ACT 4 
SOB FOR ALL PAGES PRESENT 
RTS PC 


-SBTTL SUBROUTINE - INITIALIZE THE UBE'S 
3# THIS ROUTINE IS USED TO INITIALIZE THE 
BGNROUTINE 

SAVE RO,R1 

LET RO := FIRST UBE ADDRESS 

DO FOR (RO) := BE10B TO BEICRI 

. LET (RO) := O 


ENDDO 
RESTORE R1,RO 
RETURN 


ENDROUTINE 


RO, -(SP) 33PUSH RO ON STACK 

R1,-C(SP) 3:PUSH R1 ON STACK 

BE1DB ,RO ; POINT RO TO UBE REGISTERS 
#10,R1 3; SET UP A LOOP a 

#0,(RO)+ ; CLEAR OUT A REGISTE 

R1,5$ 3; HAVE WE INTTEALIZED THE UBE ? 
(SP)+,R1 :3:POP STACK INTO R 

en 33POP STACK INTO RO 


; 
s STARTING POINT OF PROGRAM 
: 


START: 
33 LCP/ORION ROUTINE TO SAVE EMTULATOR AND PRIORITY 





KTJ11+B DIAGNOSTIC 
SUBROUTINE - INITIALIZE 


012737 


013746 


Ke 
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THE UBE'S 
002566 
000040 


177777 
000100 


177777 


001100 
001140 
001100 
022712 
00034 


EMTSAV: TST SAV30 FIRST TIME THROUGH ? 
BNE VMKOR BRANCH IF BEEN HERE ALREADY 
@BITS,aeS2 ARE WE IN UFD MODE ? 
VMKOR LEAVE tf NOT 
@-1,UFDFLG i SET UFD FLAG 
@BIT6,a0S2 ARE WE QUIET MODE ? 


1$ 

#-1, VQUIET TET T MODE 

42 ADORESS OF — DCA TABLE 
42(RO) CLR XXDP+ “DRSERR 

30,SAV30 SAVE EMULATOR ADDRESS 
32,SAV32 SAVE EMULATOR PRIORITY LEVEL 
VMKOR AROUND TAG AREA 


USER FRIENDLY MODE FLAG 
UFD QUIET MODE FLAG 


JPROROREEEEEEEEESEEREREEERESEERERESEEEESEEEEEEEESESEEEERESESEESEREDEEES 
-SBTTL INITIALIZE THE COMMON TAGS 
COMMON TAGS ($CMTAG) AREA 
AG 3sFIRST LOCATION TO BE CLEARED 
3sCLEAR MEMORY LOCATION 


@SWR,R6 ; ;DONE? 
-6 :sLOOP BACK 


F NO 
MOV @STACK, SP 3sSETUP THE STACK POINTER 
—-~y A 4° VECT 


TORS 
@$SCOPE ,@GIOTVEC ;;IOT — FOR SCOPE ROUTINE 
#340 ,Q@IOTVEC+2) ;;LEVEL 
@$SERROR , BOEMTVEC Fy VECTOR FOR ERROR ROUTINE 
0340, QOEMTVEC +2 3 sLEVEL 
OS TRAP , B@TRAPVEC Thanaggl™ VECTOR FOR TRAP CALLS 
0340, @OTRAPVEC+2;LEVEL 
@$PWRON, BOPWRVEC SS OOUER FAILURE VECTOR 
$340, QOPURVEC 2 s;LEVEL 7 
sEOPCT 33SETUP END-OF -PROGRAM COUNTER 
; INITIALIZE NUMBER OF ITERATIONS 
3;CLEAR THE ESCAPE ON ERROR ADDRESS 
3;ALLOW ONE ERROR PER TEST 
ssINITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV PERR 33;SETUP THE ERROR LOOP ADDRESS 
33SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
3;EQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV @oER RVEC,-(SP) ;;SAVE ERROR VECTOR 
964% ,AVERRVEC 33SET UP ERROR VECTOR 
#DSWR,SWR 33SETUP FOR A HARDWARE SWICH REGISTER 
@DDISP DISPLAY + AND A HARDWARE DISPLAY REGISTER 


177777 176146 ———— 33TRY TO REFERENCE HAROWARE S 


003004, 


000176 
000174 


000004 
001206 


WR 
; ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
3sAND THE HARDWARE SWR IS NOT = -1 
65$ 3sBRANCH IF NO TIMEOUT 
#65$,(SP) 3sSET UP FOR TRAP RETURN 


@SWREG, SWR ssPOINT TO SOFTWARE SWR 
@DISPREG, DISPLAY 

(SP)+,Q0ERRVEC ;;RESTORE ERROR VECTOR 
$PASS 3;CLEAR PASS COUNT 


SEQ 0023 





KTJ11-B DIAGNOSTIC 
COMMON TAGS 


INITIALIZE THE 


132737 
001403 
012737 


112737 
000420 


012737 


013737 
012706 


Le 
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000200 
001222 
000040 
000001 


177777 
022672 
003152 
000042 
001220 
001140 


» 
001221 


001140 
000052 
001220 


172516 


Ae mt 
@$SWREG, SWR 
on 
@APTENV, SENV 
BEQ 1$ 
-SBTTL TYPE PROGRAM NAME 


3sTEST USER SIZE UNDER APT 
33YES,USE NON-APT SWITCH 
33NO,USE APT SWITCH REGISTER 


ARE WE UNDER UFD ? 
YES, THEN SKIP THE DIAGNOSTIC TITLE PRINTOUT 


APT? 
IF YES, SKIP PRINTOUT 


33 TYPE on OF THE PROGRAM IF FIRST PASS 


@-1 


33TYPE ASCIZ STRING 


TYPE 698 
3 T VALUE FOR SOF TWARE SWITCH REGISTER 


70$ 
sENV, #1 
70$ 
SWR , @SWREG 
71$ 


71$ 
#1, $AUTOB 


sARE WE > ae UNDER XXDP/ACT? 


IF YES 
; SOF THARE SWITCH REG SELECTED? 
3;BRANCH IF 

S3GET SOF T-SWR SETTINGS 


sSET AUTO-MODE INDICATOR 
33;GET OVER THE ASCIZ 


SCRLFD# COKTAAO KTJi1- B DIAGNOSTIC *#<CRLF> 


@TIMOUT ,a04 
0340 ,306 
TEST 

MEMORY IN 4K PAGES 

JSR PC ,MAPPR 

#B1T05!BIT04 ,MMR 
MMRO 
PC ,MEMSIZ 
MMRO 


MMR3 
KIPAR6 ,PMIS 
#1100,SP 


SETUP TIMEOUT VECTOR FOR UNEXPECTED TIMEOUT 


; TEST @ FOR ERROR REPORTING 


REMAP PROGRAM AREA 
; ENABLE RELOCATION AND 22BITS 
ENABLE MMU 
GET HIGHEST 128K OF MEMORY 
DISABLE MMU 


STORE HIGHEST PAGE 
SET UP THE STACK POINTER 


SEQ 0024 
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SEQ 0025 
TEST - UNIBUS MAP REGISTER TESTS 


.-SBTTL TEST - UNIBUS MAP REGISTER TESTS 


:# THIS TEST WILL TRY TO ACCESS ALL THE MAP 
3 REGISTERS WITH BOTH MAPPING ENABLED AND 
:* DISABLED 


BGNTST 


LET 4:= ADDRESS OF . ee ROUTINE 

LET 6:= PRIORITY OF 7 

DO FOR BOTH UNIBUS MAP ENABLED AND — 
- DO FOR oonaae :* 170200 TO 17037 


. READ ADDRESS 
. « IF ADDRESS CAN'T BE READ THEN 
- « . _TRAP THRU VECTOR 4 

. . ENDIF 

. _ENDDO 

ENDDO 

EXIT TEST 


ERROR: 
REPORT WHICH MAP REGISTER TIMED OUT 


§ SPRRROEREEEEEEEEEEEREEEEEEESEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEDEDEEEE 
s*#TEST 1 UNIBUS MAP REGISTER RESPONSE TEST 

§ SPRRREEREEEEEEEEEEEEESEEEEEEEEEREEEEEREEEEEEEEEE64460000000000084 
TSTl1: S 


; 
; SET UP MEMORY TIMEOUT VECTOR TO ERROR ROUTINE 
5 
013705 000004 , MOV 04 RS ; SAVE THE TIMEOUT VECTOR 
MOV #20$ ,a04 3; SET UP TIMEOUT VECTOR TO ERROR ROUTINE 
MOV #340 ,06 s SET UP TIMEOUT PRIORITY 


é 
3; DISABLE UNIBUS MAPPING 
3 
172516 BIC #BITS,a¢SR3 ; DISABLE UNIBUS MAPPING 


é 
3; TRY TO ACCESS ALL THE UNIBUS MAP REGISTERS 


$ 
R1 INITIALIZE LOOP COUNT 
S$: @MAPLOO,RO . RO POINTS TO MAP REGISTER 40 
10$; (RO)+ . » TRY TO READ MAP REGISTER 
12%: RO, #170400 . « HAVE WE READ ALL THE = REGISTERS 
10$ . « NO THEN GO READ THE es ONE 
R1 . HAVE WE DONE THIS TWICE ? 
15% . GO TURN ON UNIBUS MAP AND TRY AGAIN 
172516 #BITS,SR3 . TURN OFF UNIBUS MAPPING 
MO RS ,a04 ; RESTORE THE TIMEOUT VECTOR 
TST2 s3 . GO to NEXT TEST 


00 : R1 ; . INCREMENT LOOP COUNT 
052737 172516 #BITS,SR3 ; . TURN ON UNIBUS MAP 








Ne 
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T1 UNIBUS MAP REGISTER RESPONSE TEST 


882 003374 000755 BR S$ 
; MAP REGISTER TIMEOUT ROUTINE 


208: (SP )-+ 
T (SP )+ 


#2,R0 
RO, $BDADR 
#2,R0 


+1 


12$ 








. GO TRY TO ACCESS THE REGISTERS 


CLEAN UP THE STACK 


GET ADDRESS THAT TIMED OUT 

PUT IT IN $BDADR 

GET NEXT ADDRESS 

REPORT THAT ACCESS HAS TIMED OUT 
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TEST - UNIBUS MAP REGISTER BIT PATTERN 


012700 
005020 


020027 
001374 


B3 
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170200 
170400 


SEQ 0027 


-SBTTL TEST - UNIBUS MAP REGISTER BIT PATTERN 


3@ THIS TEST IS DESIGNED TO DETECT ANY STUCK 
3¢ AT BITS OR SHORTED BITS IN THE UNIBUS MAP 


3¢@ REGISTERS 
: 
: ®B8GNTST 


CLEAR ALL MAP REGISTERS 


' CHECK LOW MAPPING REGISTERS 


. READ ADDRESS 
. IF ADDRESS NE O 


. WRITE PATTERN INTO ADDRESS 
. READ PATTERN 


ENDDO 
- LET ADDRESS := ADDRESS « 2 
° CHECK HIGH MAPPING REGISTERS 


3% 
- READ ADDRESS 
. If ADDRESS NE O 


. » WRITE PATTERN INTO ADDRESS 
- « READ PATTERN 


ENDIF 


DO FOR ADDRESS :* 170200 TO 170376 


THEN 
WR MAP REGISTER DID NOT CLEAR 
DO FOR PATTERNS :* 377,7417,1463,52525, 125252 


. IF CONTENTS OF ADDRESS NE PATTERN THEN 
: hon IN BITS OF ADDRESS 


THEN 
WH MAP REGISTER DID NOT CLEAR 
DO FOR PATTERNS :* 17,14,25,52 


IF CONTENTS OF ADDRESS NE PATTERN THEN 
. ERROR IN BITS OF ADDRESS 


§ OOOO OEEEEEEEEESEEESOEESEEESSESEESESSESEEESSSSESOEESESESEEEESEEES 
s*TEST 2 UNIBUS MAP REGISTER BIT PATTERN TEST 


FS SSSOSSSESESESESESHESESSESSESESESESESESESSESEEESHESESESESSESSESESESESEE 


TST2: SCOPE 


F 

3 CLEAR ALL MAP REGISTERS 
MOV OMAPLOO,RO 
CRO)> 

CMP > elite 


GET ADDRESS TO 1ST MAP REGISTER 

- CLEAR THE MAP REGISTER 

. HAVE WE CLEARED ALL THE MAP REGISTERS ? 
. NO THEN GO CLEAR THE NEXT ONE 


C3 


KTJ11-8 DIAGNOSTIC MACRO M1200 25-JUL-84 17:10 PAGE 12-1 


SEQ 0028 
T2 UNIBUS MAP REGISTER BIT PATTERN TEST 


6 
; DO A READ,WRITE,READ ON THE REGISTERS TO 

; VERIFY ALL THE BITS OF THE LOW MAP REGISTERS 
: 


@MAPLOO,RO GET ADDRESS TO 1ST MAP REGISTER 
108: ise ) IS THE MAP REGISTER CLEAR ? 


(Ro), 0+ ed 
0, $GDDAT 
RO, $BDADR 


2 
OPTRN16,R1 
CR1),CRO) 
(R1)+,R2 
oBITO,R2 
R2,(RO) 


CLEAR BITO OF THE PATTERN 
DID PATTERN GET WRITTEN CORRECTLY ? 
25% YES, THEN GO SEE IF ALL PATTERNS HAVE BEEN WRIT 


011037 CRO), $BDDAT - « NO,GET THE BAD DATA 
005741 -(R1) . « POINT TO THE GOOD DATA 
012137 (R1)+, $GDDAT $ GET THE GOOD DATA,AND POINT Ri TO THE NEXT DA 


RO, $BDADR . GET THE ADDRESS OF DATA FAULT 

+3 . ERROR - REGISTER COULD NOT HOLD PATTERN 
25%: (R1) . » ARE WE THROUGH THE TABLE ? 

20% . »« NO THEN GO WRITE NEXT PATTERN 


é 
; DO A READ,WRITE,READ ON THE REGISTERS TO 
3; VERIFY ALL THE BITS OF THE HIGH MAP REGISTERS 


3 
@2,R0 POINT TO THE HIGH MAPPING REGISTER 
308: ty EAR ? 


35% 

(RO), = 
0, $GDDAT 
RO, $BDADR 


*2 

OPTRNG ,R1 
(R1),CRO) 
(R1)+,R2 
@177700,R2 
R2,(RO) 


NO, THEN GET THE ry DATA 
GET THE ~300 DATA 
GET THE ~ eo THAT DIO NOT CLEAR 
ERROR - REG STER DID NOT CLEAR 
GET POINTER 10 PATTERN TABLE 
. MOVE PATTERN TO MAP REGISTER 
. MOVE COPY OF THE PATTERN TO-R2 
. MASK OUT THE UPPER 10 BITS 
DID PATTERN GET WRITTEN CORRECTLY ? 
45$ YES, THEN GO SEE IF ALL PATTERNS HAVE BEEN WRIT 


011037 CRO), $BDDAT . NO,GET THE BAD DATA 
005741 -(RL) 3 - POINT TO THE GOOD DATA 
012137 CR1)+, SGDDAT . GET THE GOOD DATA,AND POINT Ri BACK TO THE NE 


RO, $BDADR . . GET THE ADDRESS OF DATA FAULT 
+3 . « ERROR - REGISTER COULD NOT HOLD PATTERN 

45%; (R1) . » ARE WE THROUGH THE TABLE ? 

8 40% . « NO THEN GO WRITE NEXT PATTERN 


; 
s SEE IF WE HAVE CHECKED ALL THE MAP REGISTERS 
s . POINT TO NEXT REGISTER 


@2,R0 
RO, 0170400 3 . ARE WE THROUGH ALL THE MAP REGISTERS ? 
10% s . GO CHECK THE NEXT REGISTER 





D3 
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TEST - UNIBUS MAP REGISTER ADDRESS UNIQUENESS 
-SBTTL TEST - UNIBUS MAP REGISTER ADDRESS UNIQUENESS 


SEQ 0029 


z 
3 THIS 7EST IS DESIGNED TO DETECT ANY DUAL ADDRESSING 
3¢ IN ‘HE UNIBUS MAP ADDRESSING LOGIC 


BGNTST 


DO FOR ADDRESS :=* 170200 TO 170376 
o-" @ADDRESS TO ADDRESS 


DO FOR ADDRESS :* 170200 TO 170376 

. READ ADDRESS 

. IF CONTENTS OF ADDRESS NE ADDRESS THEN 
. er ERROR IN ADDRESSING 


FL POROREREORERERESEESSESESEESESEEEEOEEEERESEOEEEERESESEEEESESEEES 
s*TEST 3 UNIBUS MAP REGISTER UNIQUENESS TEST 

fF OPOROSEESEEEESEEEEEEEESESESEEEESESEEESESEEEEEESEESEEDEEEEEEEESS 
TST3: c 


H 
3 WRITE ADDRESS INTO ALL MAP REGISTERS 


; GET ADDRESS OF 1ST MAP REGISTER 
; GET ADDRESS OF 1ST MAP REGISTER 

: . WRITE ADDRESS TO ITSELF 

3; . GET THE NEXT ADDRESS 

3 . HAVE WE WRITTEN TO ALL MAP REGISTERS ? 
: . NO,THEN GO WRITE TO NEXT ADORESS 


5 
3 MAKE SURE EACH LOW MAP REGISTER CONTAINS IT'S ADDRESS 


; 
@MAPLOO,RO GET ADDRESS TO 1ST MAP REGISTER 
GET ADDRESS TO 1ST MAP REGISTER 
108: . WAS THE ADDRESS WRITTEN TO THE MAP REGISTER ? 
15% . YES,THEN GO CHECK THE HIGH MAP REGISTER 
. NO GET THE ADDRESS THAT WAS WRITTEN 
. GET THE GOOD ADDRESS 
1048 003712 é (RO)+, $BDADR . GET THE BAD ADDRESS,AND POINT BACK TO NEXT ADDR 


Ss é 

os 003716 +4 . ERROR IN ADDRESSING OF MAP REGISTERS 
10 3 

1051 3; MAKE SURE EACH HIGH MAP REGISTER CONTAINS IT'S ADDRESS 


1052 F 

1053 003720 15%: ADD 62,R0 POINT RO TO HIGH MAP REGISTER 

1054 003724 MOV RO,R2 

1055 003726 BIC 9177700,R2 10 BITS 

1056 003732 CMP R2,(R1)> WAS THE ADDRESS WRITTEN TC THE HIGH MAP REGISTER 


? 

peer seuree BEQ 20s YES, THEN GO CHECK IF WE ARE THROUGH ALL THE MAP 
REGISTERS 

1058 003736 TST -(RO) . NO GET THE ADDRESS THAT WAS WRITTEN 

1059 003740 MOV RO, $GDADR . GET THE GOOD ADDRESS 





ca 
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T3 UNIBUS MAP REGISTER UNIQUENESS TEST 
1060 003744 012037 001122 MOV (RO)+, $BDADR s . GET THE BAD ADDRESS,AND POINT BACK TO NEXT ADDR 
=m 104004 ERROR +4 s . ERROR IN ADDRESSING OF MAP REGISTERS 
; CHECK TO SEE IF WE HAVE CHECKED ALL MAP REGISTERS 
208: oP @2,RO 3; . GET THE NEXT REGISTER 


RO, #170400 3; . HAVE WE CHECKED ALL THE MAPPING REGISTERS 
BNE 10% s . NO, THEN GO CHECK THE NEXT REGISTER 


SEQ 0030 
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SEQ 0031 
TEST - UNIQENESS BETWEEN LOW MAP REGISTERS AND HIGH MAP REGIST 
1072 .SBTTL TEST - UNIGENESS BETWEEN LOW MAP REGISTERS AND HIGH MAP REGISTERS 
1073 
1074 3 
1075 3* THIS TEST IS DESIGNED TO TEST THE UNIQUENESS BETWWEN THE LOW 
1076 3 AND HIGH MAP REGISTERS 
1077 3 
1078 ; ®BGNTST 
1079 Fy 
1080 3 DO FOR ADDRESS := 170200 TO 170374 
1081 ; . WRITE #77777 TO ADDRESS 
1082 3 ENDDO 
1083 F DO FOR ADDRESS := 170200 TO 170374 BY 4 
1084 3 . LET R2 := CONTENTS OF ADDRESS 
1085 3 . LET R3 := CONTENTS OF ADDRESS # 2 
1086 ; . LET RE := RB - R2 
1087 3 . IF R34 ? O THEN 
1088 3 ‘ ERROR IN DIFFERENTIATING BETWEEN HI AND LO REGISTERS 
1089 3 . ENDIF 
1090 3 ENODO 
1091 3 
1092 3; ENDTST 
1093 3 
1094 Dee 
1095 
1096 F FSSSESSSSESASSESSSSSSSHESSEAASESESSESSEHEESSHSEEHEKESESSESSESSEEEREEEEEEE 
s*#TEST 4 HIGH AND LOW MAP REGISTER UNIQUENESS TEST 
FF SSSSESSSESSSESSSSESSESSHESSESSESAESHESSESSEEKESSSESESESESEESSESEEEESESEESEEER 
003764 000004 TST4: SCOPE 
1097 
1098 Fy 
peed 3; WRITE @77777 TO ALL ADDRESSES 
8 
1101 003766 012700 170200 MOV @MAPLOO,RO 3; GET ADDRESS OF FIRST MAP REGISTER 
1102 003772 012720 077777 S$: MOV 77777,CRO)>+ 3 . WRITE 77777 TO MAP REGISTER 
1103 003776 020027 170400 CMP RO, #170400 3; . HAVE WE WRITTEN TO ALL REGISTERS ? 
cies 004002 001373 BNE 5$ : . NO, THEN GO WRITE TO THE NEXT REGISTER ? 
H 
—_ 3 MAKE SURE THAT HIGH MAP REGISTER BITS 6-15 ARE CLEARED 
8 
1108 004004 012700 170200 MOV OMAPLOO,RO ; GET ADDRESS OF FIRST MAP REGISTER 
1109 004010 012002 10$: MOV CRO)+,R2 3: . GET CONTENTS OF LOW MAP REGISTER 
1110 004012 012003 MOV CRO)+,R3 ; . GET CONTENTS OF HIGH MAP REGISTER 
1111 004014 160302 SUB R3,R2 3; . DIO THE REGISTERS GET ADDRESSED CORRECTLY ? 
we 003007 BGT 15$ 3; . YES, THEN GO'SEE IF WE HAVE CHECKED ALL THE MAP R 
1113 003020 005740 TST -(RO) s . NO, 
1114 004022 005740 TST -(RO) : . POINT TO THE LOW MAP REGISTER 
1115 004024 012057 001124 MOV (RO)+, $GODAT : . GET CONTENTS 4 LOW MAP ok 
1116 004030 012037 001126 MOV CRO)+, SBODAT 3 . GET CONTENTS OF HIGH MAP REGISTE 
. 1117 004034 104005 ERROR 5 3 . ERROR - MAP REGISTERS WERE NOT SDORESSED CORREC 
LY 
1118 H 
Ww ; SEE IF WE HAVE CHECKED ALL THE MAP REGISTER PAIRS 
3 
1121 004036 020027 170400 15%: CMP RO, #170400 3; . HAVE WE CHECKED ALL THE REGISTERS ? 
1 004042 001362 BNE 10$ 3; . NO,THEN GO CHECK THE NEXT PAIR $3! 
1 
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TEST - DCSR REGISTER RESPONSE TEST 


004044 000004 


004046 012737 004220 000004 
004054 012737 000340 000006 


-SBTTL TEST - DCSR REGISTER RESPONSE TEST 


6 

3 THIS TEST IS DESIGNED TO SEE IF WE CAN ACCESS THE 
3@ DIAGNOSTIC CONTROLLER STATUS REGISTER.IF WE CAN IT 
:# TESTS OUT BITS 3-6,9-14 OF THE DCSR AND MAKES SURE 
3@ THAT A BUS INIT HAS A PROPER RESPONSE IN THE OCSR. 


FY § SESSSSSOSESSOS5090000080656S5S58S90S8SS9S085008698SS0S8S0800088 
s*TEST 5 
3 FSSOEEEESESEEEEEEEEESESESESEESESEEESEHESESESEESEEESESESESESESESERESES 


BGNTST 
LET 4 :* ADDRESS OF ERROR ROUTINE 
LET 6 := PRIORITY OF 7 
LET ADDRESS := 177730 
READ ADDRESS 

CHECK BITS 3-6,9-14 OF THE OCSR REGISTER 
LET DCSR := OCSR .OR. 077170 
READ OCSR 
IF OCSR NE _O THEN 
. REPORT ERROR IN BITS 3-6,9-14 OF THE OCSR aagearen 
ENDIF 

CHECK OUT THE DCSR RESPONSE TO A RESET 
CACHE THE RESET INSRUCTION 
LET DCSR := DCSR .OR. 0206 
DO A RESET TO INITIALIZE THE BUS 
IF LOWER BYTE OF OCSR GT O THEN 
, REPORT ERROR (BIT 7 DID NOT GET SET BY BUS INIT) 
. LET OCSR := DCSR .AND. 96 
: TF CSR NEO THEN 
; TF REPORT ERROR (BITS 1,2 DIDN'T CLEAR ON BUS INIT) 
. ENDIF 
ENDIF 
EXIT TEST 

REPORT THAT ACCESS TO DCSR HAS TIMED OUT 
ENDTST 


TSTS: 


OCSR REGISTER TEST 
SCOPE 


SET UP MEMORY TIMEOUT VECTOR 


MOV 020% ,804 ; SET UP VECTOR PC TO ERROR ROUTINE 
MOV 0340 ,306 ; SET UP VECTOR PSW TO PRIORITY 7 


READ ADDRESS OF DCSR TO SEE IF IT TIMES OUT 


SEQ 0032 
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TS DCSR REGISTER TEST 


SEQ 0033 


005737 177730 TST @e0CSR s WILL THE DCSR TIMEOUT ? 
012737 002234 000004 ‘MOV @TIMOUT ,a04 s RESTORE TIMEOUT VECTOR 


3 
TRY TO WRITE ONES TO BITS 3-6 AND 9-14 ( BIT 03 SHOULD STAY WRITTEN) 


077170 177730 #77170,800CSR TRY TO WRITE TO READ ONLY BITS 

177730 #77160,800CSR DID THEY GET WRITTEN TO ? 
S$ NO, THEN GO CHECK THE EFFECT OF A RESET ON THE DOCSR 
@O0CSR,R1 GET COPY OF DCSR INTO R 
#100607 ,R1 MASK OUT UNTESTED BITS 
R1, $BDDAT PUT THEM INTO BAD DATA 
#10, $GDDAT GOOD DATA 
+6 ERROR - IN BITS 3-6,9-14 OF DCSR 

THE RESET INSTRUCTION 


012737 000200 MOV @B1T7, $GODAT ONLY 7 SHOULD BE SET AFTER RESET 
053737 BIS OCSR, $GDDAT SET BOOT BITS 
005737 TST 10% CACHE THE RESET 


é 

3; SET UP DCSR,DO A RESET,MAKE SURE PROPER RESPONSE OCCURS 

; 
052737 BIS #6 ,8@DCSR SET BIT 7 AND CLEAR BIT 1,2 
000005 10%: DO A BUS INIT 

I B1IT7,800CSR OID BIT 7 GET SET ? 
15$ YES, THEN GO CHECK IF BM 30 GOT CLEAR 
NO, THEN ERROR - BIT 7 DION'T GET SET 


7 

15%: $6,@00CSR ; OID BIT a : “AS a ? , 
TST6 33: YES, THEN GO TO NEXT TEST 
@e0CSR, $BDDAT 3; NO, THEN GET CONTENTS OF THE DCSR 
7 : ERROR - BIT 1,2 DIO NOT GET CLEAR 


ROUTINE 


: 
012737 177730 $ MOV #0CSR, $BDADR ; GET ADDRESS OF THE OCSR 
104010 ERROR +10 3; ERROR - DCSR REGISTER ACCESS HAS TIMED OUT 
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TEST - KMCR BITS TEST 
-SBTTL TEST - KMCR BITS TEST 


i THIS TEST CHECKS THAT OUT OF DIAGNOSTIC MODE (DCSR<8>=0), WRITE ACCESS 
3# TO KMCR<S-O> IS DISABLED. 


BGNTST 


LET 4 := ADDRESS OF TIMEOUT ROUTINE 

LET 6 :* PRIORITY OF TIMEOUT ROUTINE 

READ THE MEMORY CONFIGURATION FROM THE EAROM 

Sas yd OCSR<8>=0 WRITE ACCESS TO KMCR<S-0> DISABELD 


FS PPRSERESESESEESEEESEEESEEESERESEEEEEEEEEDEEEEEEEEEEESEEEDELESES 
s*TEST 6 KMCR MEMORY CONFIGURATION BITS TEST 
§ PRES OEESEEEEEESEEESEESSEEEEEEESESESEEESESEEEEEEESERESEEEEEEEES 


TST6: SCOPE 


3 
3; SETUP TIMEOUT VECTOR,TO ERROR ROUTINE 
3; VERIFY THAT AT LEAST SOME PMI MEMORY PRESENT 
$ 
012737 SET VECTOR PC TO ERROR ROUTINE 
000006 ithe tote PSW TO ERROR ROUTINE 
RESTORE TIMEOUT VECTOR 
CLEAR ALL BUT U.MEMORY 
NO PMI MEMORY? 
IF SOME, GO TO THE NEXT TEST 
; OTHERWISE FLAG NO PMI MEMORY 
33 AND EXIT TEST 
THAT NOT IN DIAGNOSTIC MODE WRITE ACCESS TO KMCR<S-0> IS DISABLED 
KMCR,R1 STORE PATTERN = KMCR TO R1 
R1 COMPLEMENT THE PATTERN 
#177700,R1 CLEAR BITS <15-6> 
MAKE SURE THAT NOT IN DIAGN. MODE 
ENABLE 32K, IN CASE OF ERROR 
TRY TO WRITE TO KMCR<S O> 
WRITTEN 
IF OION'T WRITE, BRANCH 
NO, THEN GET THE GOOD DATA 
GET THE BAD DATA 
GET THE ADDRESS OF THE KMCR 


RESTORE KMCR 


$TMPO,KMCR 
NO, THEN ERROR - BITS DID NOT GET SET CORRECTLY IN 


11 


THE KMC 
TST7 THE NEXT TEST 
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T6 KMCR MEMORY CONFIGURATION BITS TEST 
1272 3 TIMEOUT ROUTINE 


1273 3 
1274 004376 012737 177734 001122 10%: MOV #KMCR, $BDADR 
1275 004404 104012 ERROR +12 


; GET THE ADDRESS OF THE KMCR 


3; ERROR 


- MEMORY TIMEOUT HAS OCCURED 


SEQ 0035 
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TEST - UNIBUS TIMEOUT TEST 
.SBTTL TEST - UNIBUS TIMEOUT TEST 


3# THIS TEST CHECKS OUT THE UNIBUS TIMEOUT LOGIC 
3* BEFORE IT IS USED IN ANY TESTS 


BGNTST 


LET 4 :=* THE ADDRESS 10% 
LET 6 := #340 
MAKE SURE THAT UBA IS IN DIAGNOSTIC MODE,OCSR<8> IS SET 
READ UNIBUS LOCATION 
IF NO TIMEOUT THEN 
ERROR - UBA DIDN’T TIMEOUT ON UNIBUS ACCESS IN DIAGNOSTIC MODE 


ENDIF 
10$: CLEAN UP THE STACK 


FF FSSSSHESSESSESSAESEESEASEEASESESSESESERESESASHESESEEEEESESEAESESSEESEE 


s#TEST 7 UNIBUS TIMEOUT TEST 
f PPRESEEEERESEEESEEESEEEEEEEEEEESERESERESERESEEEEEEESRE DEERE SEEDS 


TST7: SCOPE 
° 
SET UP MEMORY TIMEOUT VECTOR AND PUT UBA INTO DIAGNOSTIC MODE 
PMIS | ANY PMI MEMORY? 
TST10 33 IF NONE, EXIT TEST 
#10$ ,804 ; SET UP TIMEOUT VECTOR TO END OF TEST 


$340,806 3 
$BIT8,ae0CSR 3 PUT UBA INTO DIAGNOSTIC MODE 


: 


é 
READ A UNIBUS LOCATION 


TST 8170002 TRY TO READ UBE REGISTER ? 
ERROR +36 ERROR - SHOULD TIMEOUT HERE 
BR 11$ GO TO THE NEXT TEST 


2 
3 TIMEOUT ROUTINE 
® 


10%: or CLEAN UP THE STACK 
bd : 
012737 11%; @TIMOUT , 804 RESTORE TIMEOUT VECTOR 
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TEST - DATA OUT WITHOUT RELOCATION 


.SBTTL TEST - DATA OUT WITHOUT RELOCATION 


3@ THIS TEST WILL PERFORM DIAGNOSTIC DATA OUT CYCLES WITHOUT ENABLING 
3# RELOCATION. THE CYCLES WILL BE VERIFIED TO WORK CORRECTLY AND 

3% —_ NPR REGISTER WILL BE CHECKED TO BE ABLE TO STORE PROPER 
3 ° 


BGNTST 


MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<8>=1 
SELECT DIAGNOSTIC NPR THRU DDR BY DCSR<2-1>=<0,0> 
LET TEST_LOCATION = 0 
DO FOR PATTERN = 377,7417,31463,52525,125152 (BINARY DIVIDE) 
CALL DIAGNOSTIC_DATA_OUT <TEST_LOCATION,PATTERN> 
IF ODR NE PATTERN THEN 
. ERROR IN PATH 
ENDIF 


IF TEST_LOCATION NE PATTERN THEN 
PW a PERFORMINDG DATA OUT 


§ EHESRESAEEEEEEEEESEEEEEERESEEESESEESEEEESEEEESEEEEEEDEEEREEEEREDE 
s*TEST 10 DATA OUT WITHOUT RELOCATION 

§ PORES AESEEESEESSEEESEEEESESEEEESEEEEEEEEEEEESEEEESEEEDEEEEEEEEE 
TST10: SCOPE 


PMIS 3; ANY PMI MEMORY? 
TSTil 33: IF as EXIT TEST 
#B8IT08,OCSR AKE SURE DIAGNOSTIC MODE IS ON 
#BITO2!B81IT01,0CSR HAKE SURE NPR me sa IS SELECTED 
$TMPO CLEAR TEST LOCATION 
POINT TO BINARY + PATTERN 
STORE TEST ss 
READY BIT SET 
IF SO, BRANCH. 
DCSR<7> NOT SET 
STORE PATTERN 
PERFORM DIAGNOSTIC DATA OUT 
. DOR HAS PROPER PATTERN 
. IF YES, BRANCH 
STORE DDR FOR ERROR REPORTS 
ERROR IN DATA PATH 
DATA OUT oT 
BRANCH, IF YES 
STORE MEMORY FOR ERROR REPORTS 
ERROR IN DATA OUT 
LAST PATTERN? 
IF NOT, BRANCH 


as ‘DCSR 
+17 

(R2)+, $GOCAT 

PC ,ODOUT 

> animate 

DDR, $B8DDAT 
13 

| ptraanemmates 
$ 

$TMPO, $BDDAT 
#14 

#0,(R2) 

i$ 


SEQ 0037 
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TEST - DATA IN WITHOUT RELOCATION 
-SBTTL TEST - DATA IN WITHOUT RELOCATION 


3* THIS TEST WILL PERFORM DIAGNOSTIC DATA IN CYCLE AND VERIFY ITS 
3# OPERATION 


BGNTST 


MAKE SURE THAT DIGNOSTIC MODE IS ON OCSR<8>=1 
SELECT DIAGNOSTIC NPR THRU DOR BY DCSR<2-1>=<0,0> 
LET PATTERN = 52525 
LET OCSR<O> = #1 
WRITE PATTERN TO TEST_LOCATION 
IF DDR NE PATTERN THEN 

ERROR PERFORMING DATA IN 


FERRER EEERESEESEEEEAEEESEERESEASESESEEEESEEEREEESSESEEEEEEEE SEES 
s#TEST 11 DATA IN WITHOUT RELOCATION 

fF PERESEEEEESEEEEEEESESERESEREESEREEEEEEESEEEEESEREEESEEEEEEEEEES 
TST11: SCOPE 


PMIS Y PMI MEMORY? 

TsT12 33 IF NONE, aNEXIT TEST 

#B1IT08 ,OCSR ; MAKE SURE DIAGNOSTIC MODE IS ON 
#81T02!BITO1,0CSR 3; MAKE SURE NPR REGISTER IS SELECTED 
#52525, $GDDAT 3 USE ry pa 1'S AND 0'S 
: 
é 


#B1T00,DCSR SET GO BI 
013737 A $GDDAT , $TMPO STORE PATTERN IN TEST LOCATON 
6 
; NOW COMPARE THE RESULTS 


; 
023737 177732 CMP DOR, $GDDAT 3; DOR GOT DATA OK? 
BEQ TSTl2 33 IF YES, EXIT 
1411 004670 177732 MOV DOR, $BDDAT - 3 STORE DOR FOR ERROR REPORTS 
1412 004676 i ERROR +15 3; ERROR IN DATA IN 
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TEST - CONTENT OF DDR 
-SBTTL TEST - CONTENT OF DDR 


:* THIS TEST VERIFIES THAT IF DCSR<2-1> ARE NOT ZERO, DDR IS ALWAYS 
3;* READ AS 0, MEANING THAT NONE OF THE UNIBUS LINES ARE STUCK. 


BGNTST 
DO FOR DCSR<2-1> FROM <0,1> TO <1,1> 
DO DATI 


IF DDR NE O THEN 
: _—— IN UNIBUS LINES 


§ PRAEEEEEEEEEAEREEESEEESEESEEEEEEESEEEEEEEEESSSEEESERESE EES SEEDED 
s*TEST 12 CONTENT OF DDR 
fF PERREREEEEREEEEERESEEEEEEEEEEEERESERESEEEEEESSEESEEEREEEEEEESES 


TSTi2: SCOPE 
T PMIS ANY PMI MEMORY? 
TST13 33 IF NONE, EXIT. TEST 
#BITO8,DCSR MAKE SURE IN DIAG. MODE 
#6IT01,0CSR START WITH 1 IN DCSR 
3,R3 DO 3 TIMES 
$GDDAT RECIEVED DATA 0 
R1 . ADDRESS O 
PC,ODIN - DO DIAGNOSTIC DATI 
#1,R3 - CONTROL LINES SELECTED? 
es CK IT 
DOR 


3$ 
001124 #177400, $GDDAT 
177732 #373,D0R 


3$ 

001126 MOV — 
oa 

177730 ADD #B1T01,0CSR 
R3,1$ 


EXPECTED PATTERN 

SELECT ONLY USED 

IF ALL ZEROES, BRANCH 

STORE RECIEVED DATA 

ERROR IN UNIBUS LINES 

GET NEXT SET OF UNIBUS LINES 
DO FOR ALL COMBINATIONS 
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TEST - INDIRECT ACCESSING OF UNIBUS MAP REGISTERS 
-SBTTL TEST - INDIRECT ACCESSING OF UNIBUS MAP REGISTERS 


THIS TEST WILL CHECK THAT EACH OF THE UNIBUS MAP o_o PAIRS CAN BE 
ACCESSED INDIRECTLY AND THAT RELOCATION WORKS PROPERL 

DATA OUT CYCLES WILL BE PERFORMED. EACH REGISTER EXCEPT THE ONE 

UNDER TEST WILL POINT TO NXM 177600%O. THE REGISTER PAIR UNDER TEST 
WILL POINT TO 0, AND DIAGNOSTIC DATA OUT CYCLES WILL BE PERFORMED 

TO PHYSICAL LOCATION 0. IN UFD MODE THIS TEST WILL RUN ONLY IF 
KMCR<S>*0, I.E. 22 BIT MODE. 


BGNTST 


IF UFO MODE AND KMCR<S> EQ 61 THEN 
oe TEST (RELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 


E 
MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<6>=1 
SELECT DIAGNOSTIC NPR THRU DDR BY OCSR<2-1>*<0,0> 
DO FOR 32. MAPPING REGISTERS 

LET LO REGISTER = #160000 
. LET HI REGISTER = 077 
ENDDO (ALL REGISTERS POINT TO a 17760000 ) 
POINT TIMEOUT_ROUTINE TO VECTOR 4 
CALL MAP_PROGRAM_AREA 
LET MMRO<O> = 1 TO ENABLE MMU 
LET MMR3<S> = 1 TO ENABLE RELOCATION 
POINT RO TO ADDRESS OF MAP REGISTER O 
LET KIPAR6 = 00 TO ACCESS REGISTER 0 
LET (RO) = 00 
LET (RO)+2 = 00 TO USE ONLY 16 BITS 
LET R1 = #140000 TO ACCESS THRU KIPAR6 
IF NOT UFO THEN 
- SAVE KMCR 
. CLEAR KMCR<4-0> 

LET R4 = 631. (D0 FOR ALL REGISTERS) 


ELSE 
° i R4 = 31. - (KMCR<4-1>) ONLY NOT DISABLED REGISTERS 


ENDIF 

DO FOR R3 FROM 60 TO R4 FOR ALL REGISTERS 
CLEAR @00 (THIS LOCATION IS ACTUALLY USED) 
LET PATTERN = RO CADDRESS OF LOW REGISTER) 
CALL DIAGNOSTIC_DATA_OUT <(R1),PATTERN> 
IF TIMEOUT THEN 
i— IN UNIQUE ADDRESSING OF REGISTERS 


IF 800 NE PATTERN THEN 
. ERROR PERFORMING DATA OUT 


ENDIF 

LET (RO)+ = #160000 

LET (RO)+ = 077 TO MAP JUST USED PAIR TO NXM 

LET (RO) = 00 

LET (RO)+2 = #0 TO MAP NEXT PAIR TO TEST_LOCATION 
LET KIPAR6 = KIPAR6 + #200 TO ACCESS NEXT PATR 


ENDDO 
DISABLE MMU 
ENDTST 
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TEST - INDIRECT ACCIESSING OF UNIBUS MAP REGISTERS 


000000 
001730 
001124 
002210 


000052 
177734 


177730 
177730 


000004 


172516 
172354 
000002 


000052 
001162 


SEQ 0041 


FF SSHEHHHSHAEEAHESS SESE ESEEEEESEEEEEEAEEAEEEEEEEEESEEESEEEESEEEEEEE 


s*TEST 13 INDTRECT ACCESSING OF UNIBUS MAP REGISTERS 
FLOORS REREEESEEEEEHEESEEEEESEEEEESEROEESEESEESEEOEE EES EEE DEERE 
TST13: SCOPE 

TST PMIS Y PMI MEMORY? 

BEQ TST14 33 IF NONE. NEXIT TEST 

BIT oBITOS,a0S2 ; UFD MODE ? 

BEQ 1$ : BRANCH, IF NOT 

BIT oBITOS,.KMCR s 186 BIT MODE ? 

BEQ 1$ 3; BRANCH, IF NOT 

10% 3; EXIT TEST 

1$: BIS ©BITO08,OCSR s SET DIAGNOSTIC MODE 

BIC #61T02!BITO1,0CSR 3; SELECT NPR THRU DDR 


3 
; POINT EACH OF MAPPING REGISTER PAIRS TO 17760000 


H 
; 00 FOR 32. REGISTER PAIRS 
. s POINT TO ADDRESS OF THE FIRST REGISTER 
2s: MOV #160000, (R2)-+ s . 160000 -> LO REGISTER 
MOV 77, (R2)« 3 . 77 -> HI REGISTER 
SOB R1,2$ s . CONTINUE UNTILL ALL DONE 


2 
; INITIALISE TO DO RELOCATION IN 22 BIT MODE 


MOV @TIMOUT ,804 POINT TIMEOUT = 
JSR PC .MAPPR REMAP PROGRAM 
INC TURN ON MMU 


ENABLE RELOCATION 

POINT RO TO FIRST REGISTER 
LET KIPAR6 SELECT MAP PAIR O 
MOVE 0 TO LOW ADDRESS 

MOVE O TO HI ADDRESS 

TO ACCESS THRU KIPAR6 


3 
58 
: 


MOV #140000,R1 
é 
s STORE © OF REGISTERS TO TEST IN R4 


KMCR ,R3 
BIC OBITO7!BITO6,RS 
MOV 30. ,R4 


LEAVE JUST BITS <4-0> 
STORE MAX, @ OF REGISTER 


BIT oBITOS ,8052 ; ? 

BNE 3$ s IF YES, BRANCH 

MOV KMCR, $TMP1 3s SAVE KMCR 

CLR KMCR : 00 NOT DISABLE ANY REGISTERS 

MOV 030, ,R4 s DO FOR ALL REGISTERS 

BR 4$ 3: BRANCH AROUND 

3$: MOVB 3 STORE # OF DISABLED REGISTERS 

3 
3 
8 


S 
GET @ OF ACCESSABLE REGISTERS 


SUB ti«éiR3«WR) 
é 
’ D0 DATA OUT FOR EACH REGISTER PAIR UNDER TEST 
4s: CLR RB ; START WITH REGISTER PAIR 0 
S$: CLR a0 |. CLEAR LOCATION UNDER TEST 
CLR —‘TouT ; | CLEAR TIMEOUT FLAG 
MOY —s- RO, $GDDAT ' * BATTERN IS ADDRESS OF LO REGISTER 
JSR —s«PC_DDOUT ; | BO DIAGN. DATA OUT 


D4 
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T13 INDIRECT ACCESSING OF UNIBUS MAP REGISTERS 


1565 005252 001730 TOUT 


1566 005256 6$ 
5260 172354 001122 KIPAR6, $BDADR 
1368 00 7 MO 07,R5 


1568 005266 00000 
1569 005272 006237 001122 
1570 005276 
1571 005300 
1572 005302 
1573 005310 
1574 005312 


. TIMEOUT FLAG SET? 
IF NOT BRANCH 
-« STORE @ OF PAIR FOR ERRORS 
- PREPARE TO SHIFT TO GET TO LOWER BITS 
. « SHIFT ONCE 
. . SHIFT 7 TIMES 
. IN yg aemesctan OF REGISTERS 


BRANCH 
STORE FOR > REPORTS 
- PERFORMING DATA OUT 
on rm JUST USED REGISTER 


ON 
POINT NEXT oO PAIR 
TO LOCATION O 

ACCESS NEXT REGISTER PAIR 
INCREMENT COUNT 

ALL oe cae PAIRS DONE? 


el 
#160000, (RO)+ 
077,(RO)>+ 


0 
200 ,KIPAR6 
#1,R3 

R3,R4 

S$ 

os »KMCR 

0 

1586 005374 OBITOS,.MMRS 


DISABLE MAPPING 
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SEQ 0043 
TEST - DISABLING OF THE MAPPING REGISTERS 
1588 -SBTTL TEST - DISABLING OF THE MAPPING REGISTERS 
1589 
1590 3@ THIS TEST WILL CHECK THAT NONE OF THE REGISTERS DISABLED BY KMCR<4-0> 
1591 :* PERFORM RELOCATION. IN UFD MODE ONLY THE BITS ACTUALLY SET IN THE KMCR WILL 
1592 3¢ BE CHECKED, OTHREWISE ALL OF THEM EXCEPT THE FIRST 4 ARE CHECKED. 
1593 3* IN UFD MODE THIS TEST WILL RUN ONLY IF KMCR<5>=0. CIN 22 BIT MODE) 
1594 3 
1595 ; BGNTST 
1596 3 
1597 3 IF UFO MODE AND KMCR<5> EQ 61 THEN 
1598 3 how TEST CRELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 
1599 3 
1600 Fy MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<8>=1 
1601 3 SELECT DIAGNOSTIC NPR THRU DDR BY DCSR<2-1>=<0,0> 
1602 Fy CALL MAP_PROGRAM_AREA 
1603 3 LET MMR3<5> = 01 TO ENABLE RELOCATION 
1604 Fy LET MMRO<O> = 61 TO ENABLE MMU 
1605 3 LET RL = 140000 TO ACCESS THRU KIPAR6 
1606 3 LET KIPAR6 = #7600 TO ACCESS MAP REG. 32. 
1607 3 SET 4 TO IGNORE TIMEOUT 
1608 3 LET PATTERN = #125252 
1609 3 LET 800 = 80 
1610 3 LET MAPL37 = 00 
1611 3 LET MAPH37 = 0 
1612 3 CALL DIAGNOSTIC_DATA_OUT<(RO),PATTERN> 
1613 3 IF @00 EQ PATTERN THEN 
1614 3 . ERROR REG. PAIR 37 PERFORMS RELOCATION 
1615 3 ENDIF 
1616 F 
1617 3; ENDTST 
1618 3 
1619 I ccm cccccccescccceccese secceeecoecessoe ss Tesssaasesesenoonees 
1620 
1621 3 J SSSSSSESSSSESESSSESSSSSESSESSSESEHSESSESEEAEHEEEESESEEEEEHSEESEESESEE 
s*TEST 14 DISASLING REGISTERS 
3 J SSSSHSSESESSSESSSSESHESESESSSESHEESESSESSSEHEESESESESHESSESEESESSEEEEEEEES 
naeth 005402 000004 TST14: SCOPE 
1623 005404 005737 001720 TST PMIS 3: ANY PMI MEMORY? 
1624 005410 001470 BEQ TST15 33 IF NONE tak tee TEST 
1625 005412 032737 000040 000052 BIT oBITOS,a¢S2 MODE ? 
1626 005420 001404 BEQ 1$ : Sanncne IF NOT 
1627 005422 032737 000040 177734 BIT #BITOS,KMCR : 18 BIT MODE ? 
ert 005430 001060 BNE TST15 33EXIT TEST IF 18 BIT MODE 
3 
arty s INITIALISE MMU AND DIAGNOSTIC REGISTERS 
3 
1632 005432 052737 000400 177730 1%: BIS #BITO8 ,.OCSR 3 SET DIAGNOSTIC MODE 
1633 005440 042737 000006 177730 BIC eg1T02!8IT01, OCSR : SELECT NPR THRU DOR 
1634 005446 004737 002244 JSR a 3 REMAP PROGRAM AREA 
1635 005452 005237 177572 INC 3; TURN ON MMU 
rts 005456 052737 000040 172516 BIS POTTS MARS 3 ENABLE RELOCATION 
F 
—s s TRY TO DO RELOCATION THRU REGISTER PAIR 31. 
3 
1640 005464 012737 005546 000004 MOV 92% ,804 s INITIALISE TIMEOUT ROUTINE 


1641 005472 012701 140000 MOV #140000 ,R1 ACCESS THRU KIPAR6 


F4 
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T14 


DISABLING REGISTERS 


012737 007600 
125252 
000000 


000000 
000000 
001124 


177572 
1654 000040 
1655 005564 012737 002234 


172354 
001124 


170374 


170376 
177732 


172516 
000004 


#7600 ,KIPAR6 
125252, $GDDAT 
a00 


00 ,MAPL37 
00 ,MAPH37 
$GDDAT ,ODR 
(R1) 


@TIMOUT 204 


ACCESS REG. PAIR 31. 

STORE PATTERN 

CLEAR LOCATION UNDER TEST 

LET MAP PAIR 31. 

POINT TO 0 

STORE PATTERN IN DOR 

EXTENAL READ TO PROVIDE ADDRESS 
RELOCATION PERFORMED THRU REG. 31. 
EXIT TEST 

RESTORE STACK 


DISABLE MMU 
DISABLE MAPPING 
RESTORE TIMEOUT 





G4 
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SEQ 0045 
TEST - NXM MEMORY TIMEOUT 

1657 .SBTTL TEST - NXM MEMORY TIMEOUT 
1658 
1659 3# THIS TEST WILL VERIFY THAT WHENEVER LOCATION 17760000 IS ACCESSED 
1660 3:# DIAGNOSTIC NPR CYCLES RESULT IN A TIMEOUT SETTING BIT <15> IN DOCSR. 
1661 H 
1662 ; ®BGNTST 
1663 3 
1664 3 MAKE SURE THAT DIGNOSTIC MODE IS ON OCSR<8>=1 
1665 3 SELECT DIAGNOSTIC NPR THRU DOR BY OCSR<2-1>*«<0,0> 
1666 3 CALL MAP_PROGRAM_AREA 
1667 F LET MMRO<O> = 1 TO ENABLE MMU 
1668 3 IF NOT UFD MODE OR KMCR<5> EQ 00 
1669 3 . LET TEST_LOCATION = #140000 10 ACCESS THRU KIPAR6 
1670 3 . LET KIPAR6 = @0 TO ACCESS REGISTER PAIR O 
1671 3 . LET LO REGISTER = #160000 TO SET REG. 0 TO NXM 
1672 3 . LET HI REGISTER = 6677 
1673 3 . LET MMR3<5> = 1 TO ENABLE RELOCATION 
1674 Fy ELSE 
1675 3 . IF KMCR<5S> EQ 01 THEN(C18 BIT MODE) 
1676 3 - . LET TEST_LOCATION = #140000 TO ACCESS THRU KIPAR6 
1677 3 - .«. LET KIPAR6 = #177600 TO ACCESS NXM 
1678 3 . ENOIF 
1679 3 ENDIF 
1680 3 START DIAGNOSTIC_DATA_OUT TO 390 
1681 3 IF OCSR<1S> NE O THEN 
1682 3 . ERROR NXM BIT SET 
1683 F} ENDIF 
1684 3 PUT ACTUAL EXTERNAL ADDRESS ON THE BUS 
1685 3 IF OCSR<15> NE 1 THEN 
1686 . $ . ERROR NXM MEMORY DOES NOT SET DCSR<15> 
1687 3 ENDIF 
1688 3 
1689 3 ENDTST 
1690 F 
1691 - Brn enn ne eee ee nn ee etn ern ner enter renner nnn nn en nnennene- 
1692 
1693 f OCRESSEESESESESEEESEEESEEEESEEEEEEESSEEESSEESEEESSEESSEEEDEEESS 

s*TEST 15 NXM MEMORY TIME 

f PPPOE EEEEERERESERESEEESEEESEEESEEORESEEESESEEEEEESEEEEEEEEEEOSS 
ae 005572 000004 TST15: SCOPE 
1695 005574 005737 001720 TST PMIS 3 ANY PMI MEMORY? 
1696 005600 001470 BEQ TST16 33 IF NONE, EXIT TEST 
1697 005602 004737 002244 JSR PC ,MAPPR 3 REMAP PROGRAM AREA 
ted 005606 005237 177572 INC MMRO 3; ENABLE MMU 

8 
Bey ; DECIDE WHETHER TO ACCESS WITH RELOCATION OR NOT 

F 
1702 005612 012701 140000 MOV #140000 ,R1 3; ACCESS THRU KIPAR6 
1703 005616 032737 000040 000052 BIT @B1T05, 8052 3 UFD MODE? 
1704 005624 001410 BEQ 1$. s IF NOT, BRANCH 
1708 005626 032737 000040 177734 BIT $BITOS,KMCR 3; 18 BIT MODE? 
1706 005634 001412 BEG 2s ; IF NOT BRANCH . 
1707 005636 012737 177600 172354 MOV 9177600 ,KIPAR6 3; KIPAR6 HAS NXM 
1708 005644 000422 BR 3$ 3 GO 00 IT 
1709 005646 013737 177734 001162 18%: MOV KMCR, $TMP1 3 SAVE KMCR 

3 


1710 005654 042737 000040 177734 BIC #BITOS,KMCR IN NOT UFD, DO IN 22 BITS 


KTJ 
T15 


11-8 


DIAGNOSTIC 


005662 012737 
005670 012737 
005676 012737 
005704 052737 


005754 013737 


hi 
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NXM MEMORY TIMEOUT 


177572 
000040 
000040 
001162 


2s: 


S$: 


BIS 


00 ,KIPAR6 


#160000, MAPLOO 


977 ,MAPHOO 
OBI TOS ,MMRS 


DO ACTUAL DATA OuT CYCLE 


ODOR 

(R1) 
#61T15,0CSR 
S$ 

+22 

MMRO 

OB ITOS,MMRS 
eBITOS, 
TST16 
$TMP1,KMCR 


SEQ 0046 


KIPAR6 ACCESS MAP REG. 0 
MAP PAIR HAS NXM 


ENABLE RELOCATION 


PROMT DIAG. DATO 
WRITE TO NXM 
NXM SET? 
IF YES, BRANCH 
NXM ACCESS DOES NOT SET DCSR<15> 
DISABLE MMU 
AND MAPPING TOO 
MODE 


UFO 
33IF NOT UFD, GO TO NEXT TEST 
3; OTHERWISE, RESTORE KMCR 


KTJ11-B DIAGNOSTIC 
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TEST - CARRY PROPOGATION TEST 


052737 


005037 
012701 
012737 


-SBTTL TEST - CARRY PROPOGATION TEST 


3# THIS TEST ok THE CARRY PROPOGATION THRU THE ALU. MAPPING REGISTER PAIR 0 
:# IS LOADED WITH ALL 1'S. LOCATION 1 IS ACCESSED. THE RESULT OF THE DATO 
:@ CYCLE IS SUPPOSED TO BE LOADED IN LOCATION 0. 


BGNTST 


IF UFD MODE AND KMCR<S> EQ 61 THEN 
Pm TEST (RELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 


MAKE SURE THAT on te MODE IS ON OCSR<8>=1 
SELECT DIAGNOSTIC NPR THRU DDR BY DCSR<2-1>=<0,0> 
POINT TIMEOUT Bagi TO VECTOR 4 4 
CALL MAP_PROGRAM 

MMRO<O> = 1 fo. ENABLE MMU 

MMR3<S> = 1 TO ENABLE RELOCATION 

KIPAR6 = #0 TO ACCESS THRU MAP REG.O 

R1 rae REG. TO eee THRU KIPA6 


LET 2 
CALL DIAGNOSTIC _DATA_OUT<(R1),PATTERN> 
LET MMRO<O> = 0 TO DISABLE MMU 

IF @0 NE #125252 THEN 

oa. IN CARRY PROPOGATION 


§ SPORES EEESEEEEESEEEEEEESEEEESEEESHEEESEESESESESEEEEEEEEEESEEEESS 
s*TEST 16 CARRY PROPOGATION TEST 


f PPOSSEEESEEESESESSEEEEEEESEEESEESESEEEREOEESEEESEEEEEDEEREDEEOEE 
TST16: SCOPE 
PMIS ANY PMI MEMORY? 
TST17 33 IF NONE , EXIT TEST 
@BIT0S,aeS52 ; UFD MODE ? 
1$ ° ; BRANCH, IF NOT 
nt 4 a KMCR 3; 18 BIT MODE ? 
TST1 3; GO TO NEXT TEST, IF YES 
INITIALISE MMU AND DIAGNOSTIC REGISTERS 
#BITO8,OCSR ; SET DIAGNOSTIC MODE 
#B81TO02!B1T01,D0CSR ; SELECT NPR THRU DOR 
PC ,MAPPR 3 REMAP PROGRAM AREA 
MMRO ; TURN ON MMU 
OB ITOS ,MMRS s ENABLE RELOCATION 
6 
; ACCESS LOCATION O THRU RELOCATION REGISTERS 
KIPAR6 ; CLEAR KIPAR6 


#140002 ,,P1 ; ACCESS THRU KIPAR6 
177777 0177777, MAPLOO ; ALL ONE‘S TO LO REG 





KTJ11-8 DIAGNOSTIC 


012737 


J4 
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T16 CARRY PROPOGATION TEST 


000077 
125252 


000000 
002210 
177572 
000040 


125252 


000000 
001122 


170202 
001124 


172516 
000000 


001126 


977 ,MAPHOO 

#125252, $GDDAT 

ae0 

PC ,ODOUT 

MMRO 

OBITOS ,MMR3 

#125252 ,a00 

TST17 

00, $BDDAT 
DADR 


+23 


ALL ONE'S TO HI REG 
THE PATTERN TO BE STORED 
BOAT Mi ~~ TION 


XT TEST 
— FOR ERROR REPORTS 
; ADDRESS 0 
; IN CARRY PROPOGATION 





K4 
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TEST - EXTENSIVE CARRY PROPOGATION TEST 
-SBTTL TEST - EXTENSIVE CARRY PROPOGATION TEST 


3# THIS TEST PERFORMS EXTENSIVE CHECKING OF CARRY PROPOGATION. FIRST 1K IS 
:*# CHECKED IN WORD INCREMENTS, AFTER THAT EACH 1K UP TO 4K. DIAGNOSTIC DATI 
3# CYCLES ARE PERFORMED AND A MAPPING REGISTER PAIR USED IS ALWAYS AT ALL 1'S. 


BGNTST 


IF UFO MODE AND KMCR<S> EQ 61 THEN 
or TEST CRELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 


CALL MAP_PROGRAM_AREA 

ENABLE MAPPING 

gl ay ay ALL MAPPING REGISTERS TO POINT TO ALL 1'S 
DO FOR 4 MEMORY 

IF MEMORY ACCESSED LESS THEN 1K 

- D0 WORD INCREMENTS 


ELSE 
° or 1K INCREMENTS 


ENDIF 
DO DATI INCREMENTS 
IF DOR LOCATION IN MEMORY THEN 


f SEORAEREEEEOEEEEEEERESEEEEESESEEEEEEEEEEERSESEEEEEESESEEEESED EES 
s#TEST 17 EXTENSIVE CARRY PROPOGATION TEST 
| + Sauer +++ eaten eenenesneeeennn enna 


TST17: SCOPE 


PMIS ANY PMI MEMORY? 
TST20 33: IF NONE, EXIT. TEST 
oBITOS,a¢S2 


: UFD MODE 
1$ ; IF NOT, BRANCH 
@BITOS,.KMCR ; 18 BIT MODE 
TST20 33 IF 18 BIT MODE, DON'T DO THIS TEST 


INITIALISE MMU AND RELOCATION 


177730 #BIT08,OCSR SET DIAGNOSTIC MODE 
000006 177730 #B1T02!BIT01,0CSR SELECT NPR THRU DOR 
002244 PC, MAPPR REMAP PROGRAM AREA 
000060 172516 @BITOS!BITO4 ,MMRS ENABLE RELOCATION AND 22BITS 
177572 NC MMRO ENABLE MMU 


3 

s POINT MAPPING REGISTERS TO ALL 1'S 

é 
012701 170200 OMAPLOO,R1 START WITH O 
012703 000036 #36,R3 DO FOR ALL REGISTERS 
012721 177776 2s: #177776,(R1)+ LOW MAP REGISTER 
012721 000077 077,CR1)+ HIGH MAP REGISTER 

1850 006246 077305 R3,2¢ DO FOR ALL 





L4 
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EXTENSIVE CARRY PROPOGATION TEST 


172354 
144000 
140002 
000040 
000040 
000200 
177572 


001122 
177732 


; 
3 START WITH DATI ON A WORD BOUNDARY 
5 


3$; 
4$: 


7$ 

@$BDADR, $GDDAT 

DOR, $BDDAT 
#B1IT15!B1T14!B1IT13, $BDADR 


+2 
DECIDE WHICH CYCLE SHOULD OCCUR NEXT 
KIPAR6 
10$ 
oe 
#140002 ,R1 
#40 ,KIPAR6 


4$ 
$40 ,KIPAR6 
———— 


MMRO 


s ACCESS REGISTER PAIR O 
s START WITH O THRU KIPAR6 


DO IN WORD INCREMENTS 
00 DATI 
- STORE JUST pa at oy ADDRESS 


. QUAL ANCH 

. STORE RECEIVED DATA 
. STORE EXPECTED DATA 
. STRIP OF PAR BITS 


ERROR IN RELOCATION 


. FIRST TIME 1K BOUNDARY? 
F NOT, BRANCH 


I 


* LESS THAN 1K DONE? 
° DO IN WORD INCREMENTS 
> NOW DO INCREMENTING THRU PAR 


FIRST 1K 
OMPARE 


- GO 00 C 
. ACCESS NEXT 1K 
- OVER 4K BOUNDARY? 


OI 


IF NOT, GO DO DATI 
SABLE MMU 





M4 
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TEST - ALU TEST 
-SBTTL TEST - ALU TEST 


3* THIS TEST PERFORMS EXTENSIVE CHECKING OF ALU BY USING BINARY COUNT PATTERN 
3* FOR EACH OF THE S ADDERS AT THE SAME TIME. HIGHEST LOCATIONS CHECKED 
3# CORRESPOND TO MAXIMUM AMOUNT OF MEMORY AVAILABLE. 


BGNTST 


IF UFD MODE AND KMCR<S> EQ #1 THE 
non TEST (RELOCATION DOES NOT NWAVE TO BE PERFORMED IN 18 BIT) 


IF 
CALL MAP_PROGRAM_AREA 
ENABLE MAPPING AND RELOCATION 
SIZE MEMORY AND MAKE UP MASK FOR NXM 
dO cant on cau COUNT PATTERNS THRU ALL FOR ADDERS 
IF LESS THAN 32K THEN 
DO DATI 


LSE 

- DO DATO 

ENDIF 

IF RESULT OF THE CYCLE IS NOT PROPER THEN 
ERROR IN ALU 


FS SSHAAESESESESESESESESEEESEESESELESESESESELESESESESESESESESEESEEEESE 
s#TEST 20 ALU TEST 
$F SSSSKSSASESESESESSESESEEESEESSSESEEESSESHSESESEEEESESESSEEERESSESESESES 


PMIS ANY 22-BIT PMI MEMORY? 

TST21 33 IF NONE, EXIT. ey 

@BITOS,KMCR 18 BIT MODE 

TsT2i 33 IF 18 BIT MODE. DON'T DO THIS TEST 
INITIALISE MMU AND RELOCATION 


#BIT08,OCSR 
e81T02:81T01, DCSR 


PC.M 
@51T05:B1T04 »MMRS 
MMRO 


PMIS Re 
R2,$TMPO 


SET DIAGNOSTIC MODE 
DOR 


MAP AREA 
ENABLE RELOCATION AND 22BITS 


MMU 
STORE SIZE OF PMI MEMORY 
CREATE A PATTERN 
#4200 ,R3 CONSTANT FOR PAR 
R2,R3 MASK OUT NXM 
972227 -10. R2 FOR MAPHOO 


; DO FOR ALL COMBINATIONS POSSIBLE, 4 BITS AT A TIME 


3 
012701 MOV #140000,R1 s ACCESS THRU KIPAR6 
005037 CLR KIPAR6 ; ACCESS REGISTER PAIR 0 
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T20 ALU TEST 


1979 006774 
1980 006776 


N4 
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177732 


177732 
172326 


177572 


172354 
172342 


001126 


001124 
001122 


172354 
172266 


001126 
001122 


170200 
170202 
001122 
001122 
001122 
001162 


001162 


001162 


as: JSR PC,ODIN 
MOV $TMP1,KIPAR6 


CMP DOR , 8$BDADR 
BEQ 10$ 
MOV DOR, $BDDAT 
MOV as BDADR, sGDDAT 
BIC #B1T15!61T14!8IT13, $BDADR 
ERROR +23 
CLR $GDDAT 
BR 10$ 
5$: JSR 


PC ,ODOUT 
MOV $TMP1 , KIPAR6 
CMP * ebegoapae 


BEQ 
MOV @$BDADR, $B0D. 
BIC oBrTis:81T14¢BIT13, $BDADR 
ERROR +23 

; 

; DECIDE WHAT ACCESS NEXT 

; 

10%: CLR KIPAR6 
ADD #1042,R1 
ADD #21042 ,MAPLOO 

MAPHOO 


CMP #150420,R1 
BNE 15% 
ADD #200, $TMP1 
15%: ADD R3, $TMP 
‘CMP #2000, $TMP1 
BGT 4 
INC $GDDAT 
CMP $TMPO, $TMP1 
BGT S$ 
25$: CLR MMRO 


CLEAR MAP REGISTERS 


CLEAR STORAGE FOR PAR 
FIRST ADDRESS USED 
CLEAR PATTERN 


IF SO, BRANCH 

STORE RECIEVED DATA 
STORE EXPECTED DATA 
STRIP OF PAR BITS 


DO DATO 


» BRANCH 
STORE EXPECTED DATA 
STRIP OF PAR BITS 


CLEAR 

START TNCREMENTING 

EVERY 4TH BIT 

DON’T FORGET CARRY 

FOR ALL REGISTERS 

SAVE wap A. USED 

ADD UNIBUS MAP REG. 

MAKE SURE KIPAR6 SELECTED 


OVERFLOW ee ADDITION? 
IF NO, BR 
ADD OVERFLON | FOR PAR 


OVER AVAILABLE MEMORY? 
DO ANOTHER DATO 


SEQ 0052 


BS 
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TEST - MAIN MEMORY DISABLE 
-SBTTL TEST - MAIN MEMORY DISABLE 


3@ THIS TEST WILL CHECK THAT A MAIN MEMORY RESPONSE IS DISABLED WHENEVER 
3¢ THE APPROPRIATE BITS IN THE KMCR REGISTER ARE SET. IN UFD MODE ONLY BITS SET 
3¢ IN KMCR WILL BE TESTED. IN ALL OTHER ENVIRONMENTS ALL BITS WILL BE TESTED. 


BGNTST 


CALL MAP_PROGRAM_AREA 

LET MMRO<O> = 1 TO ENABLE MMU 

LET Ri = KMCR_LOW_ ay 

CLEAR BITS <5,6,7> IN R1 

IF ake EQ oi THEN (18 BIT MODE) 


BIT MODE) 
T KIPAKG © 0377400 


EnoIF 
LET TEST_LOCATION = #140000 TO ACCESS THRU KIPAR6 
DO FOR RO FROM 01 TO Ri ALL PAGES SPECIFIED IN KMCR 
LET R2 = STEST_LOCATION 
IF NO TIMEOUT THEN 
. ERROR KMCR<4-5> DOESNOT DISABLE MAIN MEMORY 


ENOIF 
LET KIPAR6 = KIPAR6 - #200 


NOOO 
IF NOT UFD MODE THEN 
. CHECK KMCR<5-0> TO BE READ-WRITE 
. LET KMCR<5-0> = 60 CALL NON-UNIBUS MEMORY ) 
. LET KIPAR6 = 0171600 
IF 80140000 DOES NOT TIMEOUT THEN 
. LET KMCR<4-0> = <1000> TO ery HIGHER THAN 28K 
- IF 90140000 DOESNOT TIMEOUT 
. io SETTING KMCR<S-0O> DOESNOT OISABLE MEMORY 


ENDIF 


§ SOCCOSEEESEESEEEEEEEOEESESEEEEEESSEEESERESEEEESEEEDESESEEESEEEDS 
s@TEST 21 MAIN MEMORY DISABLE 
§ OCCOOEESECEEEEESEEESEEESORESEREEEEEESEEESEEEEHEEESESEEEEEESEEES 


TST21: SCOPE 
TST PMIS ANY PMI MEMORY? 

20% IF YES, DO THE TEST 

100$ OTHERWISE EXIT TEST 
20%; #61T08,D0CSR STANDALONE MODE 

PC ,MAPPR REMAP PROGRAM AREA 
ENABLE MMU 
SAVE KMCR 
Rl HAS @ OF PAGES DISABLED 


KMCR ,R1 
177740 0177740,R1 


$ 
3 GET THE HIGHEST NXM LOCATION 
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MAIN MEMORY DISABLE 


032737 
001404 
012737 

03 


0004 
012737 


105701 


012737 


172516 


170202 
172516 


000004 
172354 


177734 


C5 
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ee 
07400 ,KIPAR6 
BR 2s 
1%: 0177400 ,KIPAR6 
4 
; GO THRU ALL PAGES OF MEMORY DISABLED 
3 
2s: 


S$: 


Rl, $ 
@TIMOUT 204 
a 
; IN NON-UFD MODE, CHECK KMCR<5-0> 
3 
6$: @BIT0S,a0S2 
8 TsT22 


7$: 


8$: 


18 BIT MODE? 
IF NOT, BRANCH 
NXM FOR 18 BITS 


GO 00 IT 
NXM FOR 22 BITS 


ANY UNIBUS MEMORY? 
BRANCH 


IF NO, 

POINT TIMEOUT by hw TO PROGRAM 

. ACCESS THRU KIPAR 

- KMCR<4-0> DOES NOT DISABLE MAIN MEMORY 


* ADJUST STACK 
7 ACCESS NEXT LOWER PAGE 


FOR ALL PAGES IN KMCR 
RESTORE TIMEOUT VECTOR 


3; UFO MODE? 
s3 IF YES, GO TO NEXT TEST 
SAVE KMCR 


HIGHEST VALUE (32K OF MEMORY) 
ITE TO KMCR 


H 
. NO,THEN GET THE GOOD DATA 
. IN CASE ‘xX BIT SET 
. WAS THAT THE ONLY WRONG? 
. IF YES, BRANCH 
. IF NOT, a ot ¥ aaa WRITTEN 
GET THE BAD DAT 
. HE ADDRESS OF THE KMCR 
. RESTORE RREGISTER 
ERROR IN KMCR<5-0> 
. EXIT TEST ON ERROR 
LAST LOCATION (0)? 
. IF NOT, BRANCH 


6 
s IN NON-UFD MODE, GO THRU THE PAGE JUST ABOVE 32K 


OBI TO4 ,MMRS 
PMIS ,R2 
MAPLOO 


@1,MAPHOO 
lamest 


910% ,804 
02000 , KIPAR6 
067,KMCR 


° 
; DO A CPU CYCLE TO DISABLED MEMORY 


ENABLE 22-BIT 

POINTS TO 32k. 

ENABLE MAPPING 

ADDRESS FOR DMA CYCLES 
TIMEOUT TO PROGRAM 
PAGE JUST ABOVE 32K 
DISABLE HIGHER THEN 32K 





DS 
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121s MAIN MEMORY DISABLE 
$s: ; . ACCESS DISABLED MEMORY 
" IN DISABLING MEMORY THRU KMCR<4-0> 


B 
108: RESTORE STACK 
TS (SP )> 


; DO A DMA DATI CYCLE TO DISABLED MEMORY 


3 
118: SR PC,ODIN s . DIAGNOSTIC DATI 
177730 8 #B1T15,0CSR s . NXM SET? 
12s s . IF SET, BRANCH 
+25 : . IN OMA MEMORY NOT DISABLED 


ALL PAGES IN MEMORY VERIFIED 
KIPAR6 ,R2 


LAs 
#20000 , MAPLOO 
13% 


- IS IT IN MEMORY? 
. IF NOT, BRANCH 
ACCESS NEXT 4K 
IF DION’ T EXCEED 32K, BRANCH 
. OTHERWISE, INCREMENT MAP REGISTER 


KMCR 
@BITOS,.KMCR 
14$ 
as 
@TIMOUT ,804 
$TMP1,KMCR 3 RESTORE KMC 
MMR 


: DISABLE 22-BIT MODE 
177572 MMRO ; DISABLE MMU 


2 
z 
Bae 
ex 
g 





te 
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TEST - CACHE PRESENCE 


-SBTTL TEST - CACHE PRESENCE 
3 THIS TEST WILL FIND OUT WHETHER THE CACHE IS PRESENT 
BGNTST 
LET KMCR<6>=01 


3 
3 
3 
8 IF KMCR<6> NE 01 THEN 

3 . CACHE NOT PRESENT OR NOT SEEN 
3 

3 

3 

3 


§ PCREOEESEEESEEES EES EES ERESESEESEEESEEESESEESEEEEEEESEESSEEEEES 
s*TEST 22 CACHE PRESENCE 
§ PORES EEEEEEEEEESEEESEEESEEESEEEEEEEOESEEEEEESEEEESEEEDEEEES 


TST22: SCOPE 


PMIS Y PMI MEMORY? 
TST23 33 IF NONE, EXIT’ Test 

@BITO6 ,.KMCR s SET CACHE ENABLE BIT 
@BIT06,KMCR s DIO IT GET SET? 
TST23 3 IF CACHE "PRESENT. at TEST 


$PASS 
1$ IF YES, SKIP PRINTOUT 
aaaptacaiames IN APT MODE? 


IF SO, SKIP PRINTOUT 
#BITOS,a052 UFD MODE ? 
1$ IF YES, BRANCH 
TYPE NO CACHE MESSAGE 


IF NO CACHE, SKIP ALL CACHE TSTS 


007544 
001175 
012724 1%: 


NOCAH: .ASCIZ / NO CACHE SEEN/ 





ra 
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TEST - CACHE DISABLED AND KMCR 
-SBTTL TEST ~- CACHE DISABLED AND KMCR 


3 THIS TEST WILL CHECK THAT WHENEVER THE DMA CACHE IS DISABLED 

3¢ THE STATUS BITS IN KMCR REGISTER ARE INITIALISED TO POWER UP 

3# CONDITIONS: THE VALID a ARE CLEARED, A IS THE NEXT AVAILABLE 
3# SET, FOLLOWED BY B, C, AND D. 


BGNTST 


DO FOR MMR3<5S>*0,1 WITH RELOCATION ENABLED AND DISABLED 
. LET KMCR<6> = #0 TO DISABLE CACHE 

LET KMCR<8>=0 

IF KMCR<12!11!10!9> NE #0 THEN 

. ERROR IN VALIO BITS WITH CACHE DISABLED 


ENDIF 

LET KMCR<6>=1 

IF KMCR<14!13!12!11!10!9!> NE #1 THEN 
io IN LRU BITS SELECTION 


fF PCRAESEEEEERESEESEEEEEEESEESEEESESEEESEERESEESESEEESERESEEEDESE 
s¢TEST 23 CACHE DISABLED AND KMCR 

§ PROSE EESEEHEEESEEESEESEESEESEESESERESEDESEEEERESEEEESESEEESESS 
TST23: SCOPE 


PMIS Y PMI MEMORY? 

TST24 33 IF NONE, EXIT. Test 

er FIRST DO WITH RELOCATION DISABLED 
OBITOS ,.MMRS 


GO 00 IT 
NOW DO WITH RELOCATION ENABLED 
@BITO6,KMCR 


MAKE SURE THAT CACHE IS DISABLED 
@B1TO8 ,KMCR READ VALID BITS FIRST 

> eae aatetica naan 

KMCR, $BDDAT 


ALL VALIO BITS CLEAR? 
IF YES, BRANCH 
STORE KMCR 
KMCR , $GDDAT 
re ~ {ale cnrerreannanrciicetamanens 
e 
#BITOS ,KMCR 


STORE TO PRESERVE LOW BYTE 
HIGH BYTE CLEAR 
VALID BITS NOT CLEAR WITH KMCR<6>=0 
NOW READ AVAILABILITY BITS 

KMCR, $TMPO 

(a tat 

4 

KMCR, $BDDAT 

KMCR , $GDDAT 


STORE KMCR 
og » $GDDAT 


ALL SET? 

IF YES, “at 
+2 
> neetatane: 


STORE KMC 

STORE TO PRESERVE LOW BYTE 

HIGH BYTE SET 

AVAIL. BITS NOT SET WITH KMCR<6>=0 
DONE WITH RELOCATION ENABLED? 

IF NOT, BRANCH 
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SEQ 0058 
TEST - AVAILABILITY OF SETS 
2213 -SBTTL TEST - AVAILABILITY OF SETS 
2214 
2215 3@ THIS TEST WILL CHECK KMCR<15-8>. FIRST, EACH SET IN THE CACHE IS ALLOCATED, 
2216 3@ THEN EACH SET IS MADE MOST RECENTLY USED C(MRU), AND THEN EACH SET IS 
2217 3# INVALIDATED BY READING THE 8TH REGISTER OF THE SET. 
2218 
2219 ; BGNTST 
2220 Hy 
2221 3 ENABLE CACHE 
2222 3 POINT R2 TO VALTBL FOR VALID BITS C(KMCR<8>=0) 
2223 F} POINT R3 TO TOPTBL FOR AVAILABILITY (KMCR<8>=1) 
2224 3 ENABLE RELOCATION 
2225 3* 
= 3# ALLOCATE SETS IN CACHE MAKING EACH OF THEM VALID AND GETTING MISSES 
222 3% 
2228 a Fy ” FOR ALL 4 SETS ALLOCATING THEM IN CACHE 
2229 3 LET KMCR<8>=0 
2230 FY - OO DMA READ ON OCTAL ac" USING DIAGNOSTIC_DATA_IN 
2231 Fy . IFB CR2)+ NE IN KMCRel 
2232 3 - « ERROR IN READING vALIDY BITS ON MISS 
2233 8 ENDIF 
2234 3 . LET KMCR<8>=1 
2235 3 . IFB KMCRe1 NE (R3)+ 
2236 3 - «+ ERROR READING AVAILABILITY BITS ON MISS 
2237 3 . ENDIF 
ss $ ENDDO 
3% 
er 3@ READ 4 REGISTER FROM A VALID SET MAKING EACH OF THE SETS MOST RECENTLY USED 
3% 
2242 8 DO FOR ALL 4 SETS MAKING THEM MRU AND THEN MOST AVAILABLE 
2243 . LET KMCR<8>=0 
2244 3 - DO DMA READ FROM 3RD LOCATION USING DIAGNOSTIC_DATA_IN 
2245 3 . IFB KMCRel NE (R2)+ THEN 
2246 Fy - « ERROR IN READING VALIO BITS ON HIT 
2247 3 . ENDIF 
2248 3 . LET KMCR<8>=1 
2249 3 . IFB KMCRe1 NE (R3)¢ THEN 
2250 Fy - « ERROR READING AVAILABILITY BITS ON HIT 
aes 3 . ENDIF 
34 
oes 3@ READ THE LAST REGISTER FROM A SET MAKING EACH SET INVALID AND MOST AVAILABLE 
34 
2255 3 - LET KMCR<8>20 
2256 3 . ODO OMA READ FROM BTH LOCATION USING DIAGNOSTIC_DATA_IN 
2257 3 . IFB KMCRe1 NE (R2)¢ THE 
2258 ry - « ERROR IN READING VALID BITS INVALIDATING A SET 
2259 3 - ENDIF 
2260 r - LET KMCR<8>=1 
2261 3 - IFB KMCR+1 NE (R3)>+ 
2262 3 - « ERROR READING AVAILABILITY BITS INVALIDATING A SET 
2263 3 - ENDIF 
2264 Fy ENDDO 
2265 F 
2266 3: ENDTST 
2267 3 
2268 Brome e reece ence rem ec wc cccceroneeen se -seceeeseneesensessesesessseees 
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AVAILABILITY OF SETS 


SEQ 0059 


FF SSSSEASSEHESESESHSESEESHEEHESEESEEAEESESEEEEESEESESESSESESEESEEESES 
s*TEST AVAILABILITY OF SETS 
FF SSHSEASSSHHESHESESESHHESEEEEESESEHESSEEEEEEEEEEEEEESEESEESEEESESESESD 


TST24: SCOPE 


s ANY PMI MEMORY? 
: IF SOME, DO THE TEST 
JMP 100$ s OTHERWISE EXIT 
177734 : s ENABLE CACHE 
MO ; POINT TO VALID BITS 
s POINT TO ate BITS 


172516 s ENABLE RELOCAT 


3$: 


3 
3 NOW READ 3RD AND THEN 8TH LOCATION FROM CACHE 


3 
4$: 


CRA), » SBDDAT +1 


=-C(R2) 
(R2)+, $GDDAT+1 


4 

oBITO8 ,KMCR 
KMCR, $BDDAT 
wea » $BDDAT +1 


-(R3) 
(R3)+,$GDDAT+1 
+26 
20,R1 

#100,R1 

1$ 


64,R1 
#BITO8,KMCR 

@ ry N 

KMCR, $BDDAT 
(R2)+, $BDDAT+1 
S$ 

-(R2) 

(R2)+, $GDDAT +1 
e 

#BITO8 ,KMCR 


KMCR, $BDDAT 
— + $BDDAT +1 


-(R3) 
(R3)+, $GDDAT+1 
+26 


s POINT MAPOO TO FIRST 8KB 


s IN HIGH AND 
3s PRESERVE 


1~ REGISTERS 


LOW BYTE 
3; CLEAR TO REPORT ERRORS, IF ANY 
4 
3; ALLOCATE 4 SETS BY READING THEM THRU DIAGNOSTIC_DATA_IN 


3 START READING MEMORY F0M 0 
ALLOCATE IN CACHE NEXT 8 WORDS 


READ VALIO BITS 
STORE KMCR 
VALID BITS OK? 
IF YES, BRANCH 
GET THE PATTERN JUST WRITTEN 
STORE HIGH BYTE 
ERROR IN VALID BITS 
READ AVAILABILITY BIT 
TORE KMCR 


Ss 
AVAILABILITY BITS OK? 
IF YES, BRANCH 

GET THE PATTERN JUST WRITTEN 
STORE HIGH BYTE 

ERROR IN AVAILABILITY BITS 
DO FOR NEXT OCTAL BOUNDARY 
ALL 4 DONE? 

IF NOT, BRANCH 


START WITH 3RD LOCATION A SET 


READ VALIO BITS 

READ FROM CACHE 

STORE KMCR 

VALID BITS OK? 

IF YES, BRANCH 

GET THE PATTERN JUST WRITTEN 
STORE HIGH BYTE 

ERROR IN VALID BITS 

READ AVAILABILITY BIT 

STORE KMCR 

AVAILABILITY BITS OK? 

IF YES, BRANCH 

GET THE open JUST WRITTEN 
STORE HIGH BYT 

ERROR IN AVAILABILITY BITS 
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AVAILABILITY OF 


READ THE 8TH WORD 
READ AVAILABILITY BIT 
READ FROM CACHE 
STORE KMCR 
AVAILABILITY BITS OK? 
IF YES, BRANCH 
GET THE PATTERN JUST WRITTEN 
STORE HIGH BYTE 
ERROR IN AVAILABILITY BITS 
READ VALID BITS 
STORE KMCR 
VALIO BITS OK? 
IF YES, BRANCH 
GET THE PATTERN JUST WRITTEN 
STORE HIGH BYTE 
oo ie - Me BITS 
eae BOUNDARY 


6$: #12,R1 
OBI TOS ,.KMCR 
P N 


C, 
KMCR, $BDDAT 
| emetit 


-(R3) 

(R3)+, $GDDAT+1 
° 

#BITOS ,KMCR 


KMCR, $BDDAT 
C(R2)+, $BDDAT+1 
+ 


-(R2) 
CR2)+, $GDDAT+1 
+26 


06 ,R1 
#100,R1 
as 
172516 @BITOS ,MMRS 
177734 ' oBITO6,.KMCR 


100$: 
TST25 33 EXIT TEST 


3# THIS TABLE HAS BITS KMCR<15-8> WHEN KMCR<8>=0 
3# KMCR<15>*0 FLAGGING CACHE MISS 


VALTBL: BYTE 20,30,34,36 3 ORDER FOR VALID: A, AB, ABC, ABCD 


: NOW ALL “>, HITS-MISSCWRITE TO I/0) 
s HIT-MISS, A: VALID T VALIO 

3 HIT- MISS, B: 

3; HIT-MISS, C: 
3; HIT-MISS, D: 


3# THIS TABLE HAS BITS KMCR<15-8> WHEN KMCR<8>=1 
3# AT FIRST NO HITS ARE RECORDED, THE COMMENT FIELD SHOWS SETS 
3# STARTING WITH LEAST AVAILABLE 


010372 TOPTBL: .BYTE 
010373 ‘ -BYTE 
010374 
010375 


010376 
010400 


DISABLE RELOCATION 
DISABLE CACHE 


10366 
010370 VALID - NOT VALID 


ADCB - 000111 
BADC - 100001 
CBAD - 110100 
OCBA - 111111 
NOW MISS-HITS 
-»ADCB->DCBA - 000111,111111 
->BOCA->DCAB - 111001,011111 
->CDAB->DABC - 011110,001011 
- >DABC->ABCD - 001011,000000 


27,201 
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TEST - DEALLOCATION OF SETS 


.SBTTL TEST - DEALLOCATION OF SETS 


3 THIS TEST CHECKS THAT EACH SET CAN BE MADE MOST AVAILABLE AND 
:# DEALLOCATED ON THE NEXT READ ON THE OCTAL BOUNDARY. 


3 
’ CISABLE CACHE TO MAKE A MOST AVAILABLE 
3 ENABLE CACHE 


3% 

3# ALLOCATE SETS IN CACHE MAKING EACH OF THEM VALID AND GETTING MISSES 
And 

3 OO FOR ALL 4 SETS ALLOCATING THEM IN CACHE 

$ DO DMA READ ON OCTAL BOUNDARY USING DIAGNOSTIC_CATA_IN 

: ENDDO - THIS LEAVES A AS THE MOST AVAILABLE SET 


3% 
3# TRY TO BRING A NEW LOCATIONS TO SET A 


3% 
DO DMA READ ON OCTAL BOUNDARY FROM A FIFTH LOCATION TO SET A AGS™N 
LET KMCR<8> = @0 
IF achat oh gig TE at ty NE <0,1,1,1.,1> THEN 
RROR DEALLOCATIONG LRU SET ca ) 


Enor F 

LET KMCR<8> = @1 

IF KMCR<15-9> NE <0,0,0,0 
- ERROR DEALLOCATING LRU 
ENDIF 


* 
3# TRY TO BRING A NEW LOCATIONS TO SET B 


3% 
DC OMA READ ON OCTAL BOUNDARY FROM 1ST LOCATION TO SET B 
LET KMCR<8&> = 00 
IF KMCR<15!12!11!10!9!> NE <0,1,1,1,1> THEN 
. ERROR DEALLOCATIONG LRU SET (B) 
ENDIF 
LET KMCR<6> = @1 
IF KMCR<15-9> NE <0,1,0,0,0,0,1> THEN 
io DEALLOCATING LRU SET (8) 


3* 
3# TRY TO BRING A NEW LOCATIONS TO SET C 


DO DMA READ ON OCTAL BOUNDARY FROM 1ST LOCATION TO SET C 
LET KMCP<8> = 00 

IF KMCR<_5!12!11!10!9!> NE <0,1,1,1,1> THEN 

° re DEALLOCATIONG LRU SET (C) 


END 

LET KMCR<3> = 01 

IF KMCR<15-9> NE <0,1,1,0,1,0,0> THEN 
oe OR DEALLOCATING LRU SET (C) 


1,1,1> THEN 
SET CA) 


oa 
3# TRY TO BRING A NEW LOCATIONS TO SET D 
3* 


i DO DMA READ ON BOUNDARY FROM 1ST LOCATION TO SET D 
: LET KMCR<6> = 

; IF KMCRe15?12!11110!9!> NE <O,1,1,1,1> THEN 

; — DEALLOCATIONG LRU SET (0) 

6 
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TEST - DEALLOCATION OF SETS 


SEQ 0v62 


2430 3 LET KMCR<8> = Ms 
2431 3 IF KMCR<15-9> NE <0,1,1,2,1.,1.1> THEN 
2432 3 . ERROR DEALLOCATING LRU SET (D) 
2433 ; ENDIF . 
2434 3 i 
2435 3; ENDTST 
2436 3 
2437 § SPAS SESSRSSSASSS SESS SS SEESOS GESTS TEE CESS SO TESS AMEE S SSS SOME MS 
2438 
2439 § PPPRROSEEESESEEEESEEEEEEEEESESEEEEEEEEREEEEEEEEEEE REDE EEEEREEEDS 
s*TEST 25 DEALLOCATION OF SETS 
f EPPOASESEEEEEEREEEEEESEEEEERESEEESEEEEEEEEEDS EREEEEEEEEEESORESE 
9 010406 000004 TST25: SCOPE 
244 
2441 010410 005737 001720 TsTt PMIS 3 ANY PMI MEMORY? 
2442 010414 001002 BNE 20$ s IF SOME, DO THE TEST 
2443 010416 000137 011102 JMP ices 3 OTHERWISE, EXIT 
2444 010422 052737 000040 172516 20%: BIS OB ITOS ,MMRS 3s ENABLE RELOCATION 
2445 010430 052737 000100 177734 BIS OB ITO6 .KMCR : ENABLE CACHE 
446 010436 012737 000200 170200 MOV #200, L : POINT MAPOO TO FIRST 8KB 
2447 010444 012737 170202 MOV #0 ,MAPHOO s IN HIGH AND LOW MAP REGISTERS 
oe 010452 013737 177734 001124 MOV KMCR, $GDDAT s STORE LOW BYTE OF KMCR 
44a 3 
my 3 ALLOCATE ALL SETS MAKING A MOST AVAILABLE 
451 3 
2452 010460 012701 MOV 40,R 3 START WITH O IN SET A 
2453 010464 004737 002222 1$: JSR PC ,ODIN 3 . ALLOCATE A SET 
2454 010470 70 ADD $20,R1 3 . GET READY FOR NEXT SET 
2455 010474 022701 000100 , CMP 9100,R1 3 . ALL 4 DONE? 
at 010500 003371 BGT 1$ s . IF NOT, BRANCH 
3 
os 3 TRY TO BRING A NEW SET TO A 
3 
2460 010502 012701 000100 MOV #100 3: TRY TO OO DATI 
2461 010506 042737 000400 177734 BIC serve. 1 MCR 3; READ VALID BITS 
2462 010514 004737 002222 JSR PC, DDIN : ALLOCATE IN CACHE 
2463 010520 013737 177734 001126 MOV KMCR, $BDDAT 3: STORE KMCR 
01 122737 001127 CMPB 036, $BDDAT+1 3 ALL SETS VALID? 
2465 010534 001404 BEQ 2s 3; IF OK, ANCH 
010536 112737 000036 001125 MOVB 036, $GDDAT+1 3: STORE EXPECTED PATTERN 
2467 010544 104026 ERROR +26 : DEALLOCATING A 
2468 010546 052737 177734 2%: BIS @BITO8 ,.KMCR 3 READ AVAILABILITY BITS 
2469 010554 013737 177734 001126 MOV KMCR,, $BDDAT : STORE KMCR 
2470 010562 122737 000017 001127 C 417, $BDDAT+1 ; MRU:A,D.C.B 
2471 010570 001404 BEQ 3$ 3; IF OK, BRANCH 
2472 010572 112737 000017 001125 MOVB #17,$GDDAT+1 : STORE EXPECTED PATTERN 
oth 010600 104026 ERROR +26 3 DEALLOCATING A 
H 
ot 3; TRY TO BRING A NEW SET TO B 
H 
2477 010602 012701 000120 3$: MOV #120,R1 3; PREPARE FOR NEXT READ 
2478 010606 042737 000400 177734 BIC BITO8 ,KMCR 3 READ VALID BITS 
2479 010614 004737 002222 JSR PC ,ODIN 3 READ INTO CACHE 
2480 010620 013737 177734 001126 MOV KMCR, $BDDAT 3; STORE KMCR 
2481 010626 122737 001127 CMPB 936, $BDDAT+1 s ALL VALID? 
2482 010634 001404 BEG 4$ 3: IF YES, BRANCH 
2483 010636 112737 000036 001125 MOVB #36, $GDDAT+1 ; STORE EXPECTED PATTERN 





KTJ11-8 DIAGNOSTIC 
DEALLOCATION OF 


011102 


042737 


L5 


MACRO M1200 25-JUL-84 17:10 PAGE 31-2 


SETS 


ERROR ’ 

4$: BIS oBITO8 ,.KMCR 
MOV KMCR, $B8DDAT 
CMPB #103, $BDDAT +1 
BEQ 5$ 
MOVB #103, $GDDAT +1 
ERROR +26 

3 ‘ 

3 TRY TO BRING A NEW SET TOC 

3 

5$: MOV #140,R1 
BIC $B ITO8 ,.KMCR 
JSR PC ,ODIN 
MOV KMCR , $BDDAT 
C 036, $BDDAT+1 
BEQ 6$ 
MOVB 936, $GDDAT+1 
ERROR +26 

6$: BIS @BITO8 .KMCR 
MOV KMCR, $BDDAT 
CMPB #151, $BDDAT+1 
BEQ 7$ 
MOVB #151, $GDDAT+1 
ERROR #26 

o 

s TRY TO BRING A NEW SET TO D 

B 

7$;: MOV 160,R1 
BIC #BITO8 ,.KMCR 
JSR »ODIN 
MOV KMCR, $BDDAT 
CMPB $36, $BDDAT+1 
BEQ 8s 
MOVB #36, $GDDAT+1 
ERROR +26 

8$: BIS @BITO8 ,KMCR 
MOV KMCR , $BDDAT 
Cc #177, $BDDAT+1 
BEQ TST26 
MOVB #177, $GDDAT+1 
ERROR +26 

100$: 


DEALLOCATING B 
READ AVAILABILITY BITS 
STORE KMCR 


ANCH 
STORE EXPECTED PATTERN 
DEALLOCATING B 


PREPARE FOR NEXT READ 
READ VALID BITS 


IF YES, BRANCH 

STORE EXPECTED PATTERN 
DEALLOCATING C 

READ AVAILABILITY BITS 
STORE KMCR 

MRU:C.B.A,0 

IF OK, BRANCH 

STORE EXPECTED PATTERN 
DEALLOCATING C 


PREPARE FOR NEXT READ 
READ VALID BITS 
READ INTO CACHE 


BRANCH 
STORE EXPECTED PATTERN 
DEALLOCATING D 
READ AVAILABILITY BITS 
Ad, roe | KMCR 


0.C. B.A 


IF OK, exit T TEST 


STORE EXPECTED PATTERN 
DEALLOCATING D 


SEQ 0063 


MS 
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TEST - CACHE WITH RELOCATION DISABLED 
2528 -SBTTL TEST - CACHE WITH RELOCATION DISABLED 
2529 
2530 :# THIS TEST CHECKS THAT CACHE IS NOT OPERATIONAL WHEN RELOCATION IS 
2531 3# DISABLED AND KMCR<15-9> ARE NOT INITIALIZED. 
2532 3 
2533 ; ®BGNTST 
2534 3 
2535 3 SAVE KMCR<15-9> FOR KMCR<8>=0,1 
2536 3 LET MMR3<5>=00 TO DISABLE RELOCATION 
2537 3 DO DMA READ USING DIAGNOSTIC_DATA_IN 
2538 8 LET KMCR<8>=0 
2539 F IFB KMCR+1 NE SAVED T 
2540 3 . -ERROR RELOCATION DISABLED STILL AFFECTS THE CACHE 
2541 3 ENDIF 
2542 3 LET KMCR<8>=1 
2543 3 IFB KMCR+1 NE SAVED THEN 
2544 F . ERROR RELOCATION DISABLED STILL AFFECTS THE CACHE 
2545 3 NOIF 
2546 F 
2547 s ENDTST 
2548 3 
2549 See 
2550 
2551 F FFSSAESSHESSESSEEASSEKOKESESSESEESEHEEEESESEEEEEESESESESESESEEEEEES 
s*TEST 26 CACHE WITH RELOCATION DISABLED 
3 J SSARASEASSSESESESHESEESSSSESSESSEEHESSESSESESESEEESEESESASESHESEEEEESESSE 
011102 000004 TST26: SCOPE 
2553 011104 005737 001720 TST PMIS 3 ANY PMI MEMORY? 
2554 011110 001452 BEQ TST27 33: IF NONE, exit’ TEST 
2555 011112 052737 000100 177734 BIS #BITO6 .KMCR 3 MAKE SURE THAT CACHE IS ENABLED 
11120 042737 000040 172516 BIC @BITOS,! : DISABLE RELOCATION 
2557 011126 042737 000400 177734 BIC #BITO8 ,.KMCR ; SELECT VALID BITS 
11134 042737 00 177734 BIC #BITO8 ,.KMCR ; READ VALIO Lh FIRST 
2559 011142 013737 177734 001124 MOV KMCR, $GDDAT ; STORE LOW BYT 
2560 011150 105037 001125 CLRB $GDDAT +1 3; CLEAR HIGH BY re 
2561 011154 032737 017000 177734 BIT $BIT12:BIT11!BIT10O!BIT9,KMCR 3 ALL VALID BITS CLEAR? 
2562 011162 001404 BEQ 3$ ; IF YES, BRANCH 
2563 011164 013737 177734 001126 MOV KMCR,, $BDDAT : STORE KMCR 
2564 011172 104026 ERROR + 3; VALID BITS NOT CLEAR WITH KMCR<6>=0 
2565 011174 052737 000400 177734 3%: BIS #BITO8 ,.KMCR ; NOW READ AVAILABILITY BITS 
011202 013737 177734 001126 MOV KMCR, $BDDAT : STORE KMCR 
2567 011210 122737 000177 001127 CMPB $177, $BDDAT+1 3 ALL SET? 
2568 011216 001404 BEQ 4$ 3; IF YES, EXIT = 
2569 011220 112737 000177 001125 MOVB #177, $GDDAT+1 3 EX°ECTED PATTER 
2570 011226 104026 ERROR 26 3 AVAIL. BITS NOT NET WITH KMCR<6>=0 
3 


+ 
2571 011230 042737 000100 177734 4%: BIC @BITO6 ,KMCR DISABLE CACHE 


NS 
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TEST - WRITE CYCLES AND CACHE 
-SBTTL TEST - WRITE CYCLES AND CACHE 


3# THIS TEST CHECKS THAT DMA WRITE CYCLES DON’T AFFECT THE CACHE, EXCEPT 
3@ WRITE HITS WHICH INVALIDATE THE SET AND MAKE THIS SET THE MOST AVAILABLE. 


BGNTST 


SAVE KMCR<15-9> FOR KMCR<8>=0,1 
DO DIAGNOSTIC_DATA_OUT WITH TAGS NOT CORRESPONDING TO ANY SETS 
DO FOR KMCR<8>=0,1 

IF KMCR<15-9> NE SAVED VALUES THEN 

i" WRITE CYCLES AFFECT THE CACHE 


ENDDO 

DO ge tt Soho OUT THAT CAUSES A HIT 

IF NOT A HIT 

- ERROR RECORDING HITS 

IF THE SET IS VALID OR NOT MOST AVAILABLE THEN 
— IN LEAST RECENTLY USED LOGIC 


ff PRSASEREEEEEEEEEEEESEESEESESSEEDEESEESEESEESESREEEEEESEESEESEESS 
s*TEST 27 WRITE CYCLES AND CACHE 
§ PERSE EESEESESESSEESEEEEESEESESEEESEEEESEEEERESEEDEDEEEODEEEEES 
011236 TST27: 
011240 ANY PMI MEMORY? 
IF SOME, DO THE TEST 
OTHERWISE EXIT 
CACHE STILL ENABLED 
ENABLE RELOCATION 
POINT MAPOO TO FIRST 8KB 
N HIGH AND ag REGISTERS 


SELECT AVAILABILITY BITS 
SAVE AVAILABILITY BITS 


013703 


é 

s ACCESS LOCATION NOT IN CACHE 

6 

ACCESS ADDRESS 

THE PATTERN TO BE WRITTEN 
DO DIAGNOSTIC DATA OUT 
SELECT VALID BITS 

KMCR CHANGED? 

IF NOT, BRANCH 

EXPECTED PATTERN 
RECIEVED PATTERN 

WRITE MISSES AFFETS CACHE 
Seu eer ev cel BITS 


IF OK, BRANCH 
EXPECTED PATTERN 


2615 011326 012701 
2616 011332 
2617 011340 
2618 011344 
2619 011352 


2623 011372 

2624 011374 

2625 011402 

2626 011406 001406 ; 2s 

2627 011410 0103357 ‘ R3, $GDDAT 
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SEQ 0066 
T27 WRITE CYCLES AND CACHE 
2628 011414 013737 177734 001126 MOV KMCR , $BDDAT s RECIEVED PATTERN 
2629 011422 104026 ERROR +26 s WRITE MISSES AFFETS CACHE 
2630 3 
2631 3 CHECK THAT WRITE HIT INVALIDATES CACHE 
2632 3 
2633 011424 042737 000100 177734 2%: BIC OB ITO6 ,.KMCR s DISABLE CACHE TO GET TO KNOW STATE 
2634 011432 052737 000100 177734 BIS OBI TO6 ,.KMCR s ENABLE CA ie 
2635 011440 012701 000000 MOV 60,R1 s ADDRESS 0 
2636 011444 004737 002222 JSR PC .ODIN 3s ALLOCATE CACHE SET A 
2637 011450 012701 MOV #20,R1 s ADDRE 
2638 011454 0047 002222 JSR PC,DDIN 3 AND ALLOCATE SET B 
2639 011460 005001 CLR R1 s ACCESS SET A 
2640 011462 013737 000200 001124 MOV 80200, $GDDAT 3 THE PATTERN TO BE WRITTEN 
2641 011470 004737 002210 JSR PC ,ODOUT 3 INVALIDATE CACHE 
2642 011474 032737 100000 177734 BIT @61T15,KMCR 3 HIT? 
2643 011502 001012 BNE 3$ 3s IF YES, BRANCH 
2644 011504 013737 177734 001124 MOV KMCR , $GDDAT 3 PRESERVE LOW BYTE IF ERROR 
2645 011512 112737 000363 001124 MOvB @363, $GODAT 3; HIT, B LEAST AVAILABLE 
2646 011520 013737 177734 001126 MOV KMCR ,, $BDDAT 3 RECIEVED PATTERN 
2647 011526 104026 ERROR +26 3 WRITE HIT WAS NOT RECORDED 
2648 011530 042737 000400 177734 3%: BIC oBITO6 .KMCR 3 READ VALIO BITS 
2649 011536 032737 010000 177734 BIT 6B81T12,KMCR 3 A VALID? 
2650 011544 001412 BEQ 4% 3 IF INVALIDATED, BRANCH 
2651 011546 013737 177734 001124 MCV KMCR ,, $GDDAT 3 SERVE LOW BYTE IF ERROR 
2652 011554 112737 000010 001125 MOVB OBITO3, $GODAT +1 : MISS. B VALIO 
2653 011562 013737 177734 001126 MOV KMCR, $BDDAT 5 RECIEVED PATTERN 
2654 011570 104026 ERROR +26 3 WRITE HIT DOES NOT INVALIDATE 
2655 011572 013737 177734 001124 4%: MOV KMCR ,, $GDDAT 3s PRESERVE LOW BYTE IF ERROR 
2656 011600 112737 001125 MOVB $200, $GDDAT +1 3; HIT RECIEVED 
2657 011606 013737 000220 2 MOV 80220 ,80220 3 ony WRITE TO SET B 
2658 011614 032737 100000 177734 BIT oBIT15, KMCR 3 HIT? 
2659 011622 001004 BNE 5$ : IF YES, BRANCH 
2660 011624 013737 177734 001126 MOV KMCR, $BDDAT 3s STORE KMCR 
2661 011632 104026 ERROR +26 ; HIT NOT RECORDED 
2662 011634 032737 004000 177734 S$: BIT +> la KMCR 3; B STILL VALID? 
2663 011642 001412 BEQ s IF NOT, EXIT TEST 
2664 011644 013737 177734 001124 MOV RMCR, $GDDAT 3 IN CASE HIT WENT AWAY 
2665 011652 142737 000030 001125 BICB @81104:81T03, $GDDAT +1 3 EAR ALL EXTRA 
2666 011660 014737 177734 001126 MOV KMCR,, $BDDAT s RECIEVED PATTERN 
2667 011666 104026 ERROR +26 : CPU WRITE DOES NOT INVALIDATE 
2668 011670 042737 000100 177734 6%: BIC BITO6 .KMCR 3: DISABLE CACHE 
2669 011676 042737 000040 172516 BIC OBITOS .MMRS 3 AND MAPPING 


2670 011704 100%: 
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TEST - OMA READ WITH INDEX NOT ZERO 


SEQ 0067 


2672 .SBTTL TEST - OMA READ WITH INDEX NOT ZERO 
2673 
2674 3@ THIS TEST CHECKS THAT A DMA READ MISS DOES NOT AFFECT THE CACHE IF THE INDEX 
2675 :¢ FIELO IS NOT ZERO. 
2676 3 
2677 : SGNTST 
2678 3 
2679 3 SAVE KMCR<15-9> FOR KMCR<8>=0,1 
3 DO DIAGNOSTIC_DATA_IN FOR A LOCATION WITH NON-ZERO INDEX 
2681 3 DO FOR KMCR<8>=0,1 
2682 3 . IF KMCR<15-9> NE SAVED THEN 
2683 3 ‘ ERROR IN COMPARING INDEXES 
2684 3 . ENOIF 
2685 3 ENODDO 
2686 3 
2687 s ENOTST 
2688 F 
2689 FORESEES ARERGR COREERSSEREREERR OT DEED GE PIONS DODD OT ERED Tae 
2690 
2691 3 J SSHESSHSSSESSSEHESSSAEESSESSHESASESESESEESEHESESESEHSESEEEESEEEEEEE 
s*TEST 30 OMA READ WITH INDEX NOT ZERO 
FF SSHSHSSSSESSSSESSSSESEESSSEHSSSHSESESESESEEEEESHESESESEESESEEEEEEESESD 
ane 011704 900004 TS™30: SCOPE 
2693 011706 005737 001720 TST PMIS 3 ANY PMI MEMORY? 
te 011712 001474 BEQ TST31 33 IF NONE, EXIT TEST 
2696 3 
i. 3 ENABLE CACHE AND ALLOCATE SET A 
3 
2699 011714 052737 000040 172516 BIS OB ITOS,MMRS 3s ENABLE RELOCATION 
2700 011722 052737 000100 177734 BIS OB ITO6,KMCR 3s ENABLE CACHE 
2701 011730 012737 000200 170200 MOV 200 ,MAPLOO : POINT MAPOO TO FIRST 8KB 
2702 011736 012737 000000 170202 MOV 60, MAPHOO 3: IN HIGH AND LOW MAP REGISTERS 
2703 011744 012701 000000 MOV 60,R1 3 ALLOCATE 200-216 
Seed 011750 004737 002222 JSR PC .DDIN : IN CACHE 
3 
eres 3 TRY TO CHECK WHETHER NON-ZERO INDEX EFFECT CACHE 
F 
2708 011754 042737 177734 BIC @BITO8,KMCR 3 SELECT VALIO BITS 
2709 011762 013737 177734 001124 MOV KMCR , $GDDAT 3: SAVE VALID BITS OF KMCR 
2710 011770 7 177734 BIS oBITO8 ,KMCR 3 SELECT AVAILABILITY BITS 
2711 011776 013703 177734 MOV KMCR ,R3 3 SAVE AVAILABILITY BITS 
2712 012002 012701 10 MOV #102,R1 3 TRY CACHING 102 
2713 012006 7 002222 JSR PC,ODIN 3 DO DIAGNOSTIC DATA IN 
2714 012012 042737 177734 BIC BITO8,KMCR 3 SELECT VALID BITS 
2715 012020 023737 001124 177734 CMP $GDDAT ,KMCR 3s KMCR CHANGED? 
2716 012026 001404 BEQ 3s IF NOT, BRANCH 
2717 012030 013737 177734 001126 MOV KMCR, $BDDAT 3 RECIEVED PATTERN 
2718 012036 1040 ERROR 2 3: NON-ZERO INDEX AFFECTS CACHE 
2719 012040 052737 000400 177734 i1%: BIS oBITO8 ,KMCR : SELECT AVAILABILITY BITS 
2720 012046 020337 177734 CMP »KMCR 3 KMCR 
2721 012052 001406 BEQ 2s 3 IF NOT, EXIT TEST 
2722 012054 010337 001124 MOV R3, $GDDAT 3 EXPECTED DATA 
2723 012060 013737 177734 001126 MOV KMCR, $BDDAT 3 RECIEVEED DATE 
2724 012066 104026 ERROR +26 s NON-ZERO INDEX AFFECTS CACHE 
2725 012070 042737 000100 177734 2%: BIC 0B1T06,KMCR ; DISABLE CACH 
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T30 OMA READ WITH INDEX NOT ZERO 
ares 012076 042737 000040 172516 BIC OBI TOS ,MMRS 3; AND MAPPING 
272 


SEQ 0068 
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SEQ 0069 
TEST - TAG REGISTERS 
2729 -SBTTL TEST - TAG REGISTERS 
2730 
2731 3@ THIS TEST WILL AUTOSIZE MEMORY IN 128K WORDS. THEN DEPENDING 
2732 3@ ON THE AMOUNT OF MEMORY AVAILABLE, A PATTERN OF ALTERNATING 0'S 
2733 3¢@ AND 1°S WILL BE CONSTRUCTED TO VERIFY THE TAG REGISTERS. 
2734 3 
2735 3; BGNTST 
2736 3 
2737 3 SAVE TIMEOUT VECTOR 
2738 3 ENABLE MMU 
2739 3 LET R1 = KIPARG6 
2740 3 REPEAT TO CONSTRUCT A MASK FOR NXM FOR MAPHO1 
2741 3 . LET R1 = R1 SHIFT.LEFT BY 41 
2742 3 . LET RL = R1 + KIPARG 
2743 3 UNTIL CARRY SET 
2744 3 SWAP R1 
2745 3 LET RL = R1 SHIFT.RIGHT BY @3 TO GET BITS<21-16> FROM <21-13> 
2746 3 LET KMCR<6> = @1 TO ENABLE CACHE 
2747 3 LET Re = @TBLML FOR PATTERNS FOR LOW REGISTER 
2748 3 LET R3 = @TBLMH FOR PATTERNS FOR HIGH REGISTER 
2749 3 DO FOR ALL 16 PATTERNS 
2750 3 - OO FOR 4 PATTERNS 
2751 3 - « LET MAPLOL = (R2)>+ 
2752 3 - « LET MAPHOL = (R3)- 
2753 3 - . LET MAPHO] = MAPHO] CLEAR.BY R1 NOT TO GET NXM 
2754 3 - « O00 DIAGNOSTIC_DATA_IN TO ALLOCATE TAG PATTERN 
2755 3 - ENODO 
eae 3 - MOVE Sy cw oy Bo THRU PATTERN TABLE TO PREVIOUS 4 WORDS 
8 ‘ 
2758 3 - DO FOR 4 PATTERNS 
2759 F - « LET MAPLOL = (R2)> 
2760 3 - « LET MAPHO] = (R3)>- 
2761 F . +. LET MAPHOL = MAPHO1 CLEAR.BY R1 NOT TO GET NXM 
2762 3 - » OO DIAGNOTIC_DATA_IN FROM IN CACHE 
2763 8 - « IF NOT A HIT THEN 
2764 3 - «  « ERROR IN TAG REGISTERS 
2765 8 .- ENODDO 
2766 F . DISABLE 22-BIT MMU 
2767 : ENDDO 
2768 3 
2769 3 ENOTST ‘ 
2770 8 
e771 Ae 
2772 
2773 f POOOOESESESEEESEEEEESSEEERESESSESESESEESEEOSEEREDEERERESSEEOSEEES 
s*TEST 31 TAG REGISTERS 
$f POCAAESESEEESESEEESESEEEEEESEEEEEEEESEEEEESEESEEEESESESEEESSEOSS 
ore 012104 000004 TST31: SCOPE 
2775 012106 005737 001720 TST PMIS Y PMI MEMORY? 
2776 012112 001575 BEQ TST32 33 IF NONE, ~~, est 
2777 012114 032737 000040 177734 BIT @BITOS,KMCR 18-BIT MODE? 
2778 012122 001171 BNE TST32 33 IF YES, EXIT Test 
2779 012124 004737 002244 JSR PC ,MAPPR 3 REMAP PROGRAM AREA 
2780 012130 005237 177572 INC MMRO 3 ENABLE MMU 
2781 012134 052737 000020 172516 BIS #BITO4 ,MMRS 3; ENABLE 22-BIT 


2782 012142 022737 000040 001720 CMP 40,PMIS ; IF 2M PRESENT, ONLY 21ST MASKED 
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T31 TAG REGISTERS 
2783 012150 BEQ S$ s DON'T CONSTRUCT MASK 
378s ; IF LESS THEN 2M OF MEMORY, MAKE UP A MASK FOR MAP HIGH REGISTERS 


3 

CLEAR CARRY 
SAVE KIPAR6 
- ROTATE LEFT Ri 
- AND ADD BIT AT FIRST POSITION 
. IF CARRY NOT SET, BRANCH 
<15-8><---><7-0> 
NOW GET ADDRESS BITS <21-16> 
FROM <21-14> 


SEQ 0070 


012174 

ALLOCATE DIFFERENT PATTERNS IN TAG REGISTERS 
012176 OBI TOE ,KMCR DISABLE CACHE 
ENABLE CACHE 
MAKE SURE THAT VALID READ 
ENABLE MAPPING 
POINTER FOR LOW MAP PATTERNS 
POINTER FOR HIGH MAP PATTERNS 
SAVE THE MASK 
COUNTER FOR 16 PATTERNS 
TO ACCESS THRU MAP REG. 1 
DO EACH FOR AT A TIME 


172516 


SK OUT NXM 
DO DIAGNOSTIC DATI 
DO FOR ALL 4 os 


NOT ALL VALID BITS SET 
& 

s NOW INVALIDATE BY WRITING TO THE SAME LOCATIONS 

8s: MOVE POINTER TO -4 

MOVE HIGH MAP POINTER TOO 
VALIDATE oe PATTERNS 
POINTER TO MAP 

- LOAD LOW HAP 

oe vow gh a 


OuT 
DO A ae “DATA IN 


HIT 

IF HIT, BRANCH 

IN TAG REGISTERS 
DO FOR ALL 4 PATTERNS 
REPEAT FOR ALL 16 PATTERNS 
TSABLE MMU 


8 
3 
3 
3 
98: 3 
3 

$TMPO,MAPHO1 3 

PC ,ODIN 3 

o61T15,KMCR 3 

10% 3 

°27 3 

3 

3 

3 

T 


R5,9% 
R4 6% 
MMRO 


TSTZ2 EXIT TES 


177572 


é 
3 PATTERNS FOR LOW MAP REGISTER 
é 
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000077 


000000 
177760 
125240 
052520 


000000 
000077 
000052 
000025 


TBLML: 


- WORD 
. WORD 
. WORD 
- WORD 


125240 ,52520,0,177760 
$2520,0,177760, 125240 
0,177760,125240,52520 
177760, 125240,52520,0 


' , 
3 PATTERNS FC? HIGH MAP REGISTER 


3 
TBLMH: 


- WORD 


52,25,0,77 
25.0,77,52 
0.77,52,25 
77,52,25,0 


SEQ 0071 


FIRST PATTERN THRU 4 TAGS 
SECOND PATTERN 

THIRD 

FOURTH 


FIRST FOR HIGH MAP REGISTER 
SECOND 
THIRD 
FOURTH 
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SEQ ‘0072 
TEST - CACHE RAM BIT PATTERN TEST 
2852 .SBTTL TEST - CACHE RAM BIT PATTERN TEST 
2853 
2854 3@ THIS TEST IS DONE TO CHECK THE OPERATION OF 
2855 3@ THE CACHE RAM . BIT PATTERNS 0,177777,52525 
2856 3@ AND 125252 ARE WRITTEN TO ALL OF THE MEMORY 
2857 3* USED AND THEN VERIFIED 
2858 3 
2859 3: BGNTST 
2860 H 
2861 3% 
2862 3@ GO SET UP THE CACHE IMAGE TABLE 
2863 , 3% 
2864 8 LET RO := @OCTBLE 
2865 8 REPEAT 
2866 3 - IF RO gt TO OCTAL BOUNDARY ADDRESS THE 
2867 3 - .» WE HAVE FOUND THE BEGINNING OF THE TABLE 
2868 8 - ELSE 
2869 3 - « POINT RO TO THE NEXT ADDRESS 
2870 3 - ENDIF 
si F UNTIL WE HAVE FOUND BEGINNING OF THE TABLE 
3% 
ok, 3# SET UP BOARD FOR THE TRANSFERS 
3% 
2875 Fy ENABLE UNIBUS MAPPING 
2876 3 ENABLE DIAGNOSTIC MODE 
2877 3 ENABLE CACHE 
ss 3 DO FOR PATTERN :* 0,177777,52525, 125252 
3% 
oy 3@ INITIALIZE THE CALE TABLE 
3% 
2882 F - OO FOR ALL OF THE CACHE TABLE 
2883 3 . .« WRITE PATTERN TO TABLE 
2884 F - ENDDO 
2885 34 
2886 3# ALLOCATE ALL THE CACHE 
2887 3% 
2888 3 - OO UNTIL ALL CACHE ALLOCATED 
2889 3 . » 00 A DIAGNOSTIC DATI NPR CYCLE CON OCTAL BOUNDARY) 
2890 8 - ENDDO 
2891 te 
ote 3@ CHECK THAT THE DATA GOT CACHED CORRECTLY 
Ge 
2894 3 - OO FOR ALL OF THE CACHE TABLE 
2895 F . » DO A DIAGNOSTIC DATI NPR CYCLE 
2896 8 - « IF ODOR NEQ PATTERN THEN 
2897 3 - «  « ERROR IN CACHE RAM 
2898 3 . . SOF 
2899 $ - ENDODO 
2900 F ENDDO 
2901 F 
2902 3s ENOTST 
2903 3 
2904 eerrrrrrrrrrrrrrrrrrrrrrrrrereet reer ert teeter 
2905 
2906 8S FSSSESSEEEEEEEESESEEHESESESESESEESESSESEESEHEESSESEESESSEESSESEEEEESEES 
s*TEST 32 CACHE RAM BIT TEST 


$F FSSHESEESESESEESESESSESSSEESSESESESEEESEEEEESESEEEESESEEESESEEEES 


16 
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T32 CACHE RAM BIT TEST 


012506 000004 TST32: SCOPE 
2907 012510 005737 001720 TST PMIS s ANY PMI MEMORY? 
2908 012514 001503 BEQ TST33 33 IF NONE, EXIT TEST 


Fy 
$910 3; FIND THE FIRST OCTAL BOUNDARY ADDRESS IN THE TABLE 
2911 3 
2912 _ 002022 @CTBLE ,RO ; GET POINTER TO THE START OF THE SPACE ALLOCATED FOR THE CA 


TABL 
2913 012522 S$: MOV RO,R1 3; SAVE IT IN R1 FOR WORKING 
2914 012524 177760 #177760,R1 3; MASK IN THE LEAST SIGNIFICANT DIGIT 
2915 012530 Ri : IS THE ADDRESS ON AN OCTAL BOUNDARY ? 
2916 012532 ; YES, THEN GO SET UP THE TABLE ADDRESSES 
2917 012534 : NO, THEN GET THE NEXT ADDRESS 
2918 012536 S$ ; . GO CHECK IF IT FALLS ON AN OCTAL BOUNDARY 
3 
é 
3 
8 
3 


SEQ 0073 


2919 012540 10$: GET POINTER TO THE ian BOUNDARY TABLE 
2920 012544 000004 SET UP THE LOOP COUNTE 

2921 012550 12$: - GO PUT ADDRESS INTO THe TABLE 

2922 012552 ADD #20,RO0 . GET NEXT OCTAL BOUNDAR 

2923 012556 ' R3,12$ . FILL UP THE TABLE ? 


; 

; INITIALIZE THE BOARD FOR THE TRANSFERS 
OBITS, BOMMRS 
MAPHOO 


i UNIBUS MAPP 
é 
#BIT8,8e0CSR H 
OBIT6,KMCR H 
@PTRN16,RO ; GET POINTER TO THE CACHE PATTERN TABLE 
: 


013701 15$: OBADR,R1 GET POINTER TO THE CACHE IMAGE TABLE 
$ 
3 INITIALIZE THE CACHE IMAGE TABLE TO CURRENT PATTERN 


012702 #40,R2 ; . SET UP LOOP COUNTER 
011021 : CRO), CR1)+ 3; . . MOVE PATTERN TO TABLE 
077202 R2,208 3s . . HAVE WE DONE IT 40 TIMES ? 


3 
3; ALLOCATE ALL THE CACHE MEMORY AVAILABLE 


é 
012702 ; . GET ADDRESS OF on BOUNDARIRES WITHIN THE TAB;E 
012703 s . SET UP LOOP COUNTE 

005001 R1 3; . NON-MAPPED ADDRRESS=0 

012237 : 3. . SET UP MAP FOR DIAG NPR DATI CALL 

004737 Cc 3 . . GO DO A DIAGNOSTIC DATA IN CYCLE 

077305 R3,25% 3 . . HAVE WE DONE IT 4 TIMES ? 


CACHE RAM IMAGE PATTERN 


. SET UP LOOP COUNTER 
. GET ADDRESS OF CACHE IMAGE TABLE 
(THIS WHOLE TABLE SHOULD BE CACHED) 
. USE ADDRESS 0 
170200 GET ADDRESS FPR DIAG. DATA IN CYCLE 


012703 000040 3 
; 
; 
3 
. 3 . . 
002222 PC ,ODIN ; . . GO DO A DIAGNOSTIC DATA IN 
; 
: 
4 
; 
5 
; 


01370? 002140 


HIT? 

. . IF YES, BRANCH 

. « OTHERWISE, ERROR 

. - DIO IT GET STORED CORRECTLY ? 
. YES, THEN GO CHECK THE NEXT LOCATION 
. NO, THEN ERROR IN CACHE RAM 


100000 #BIT15,KMCR 
35% 


+30 

177732 : DOR, CR2)+ 
296 3} 40$ 
2962 012714 +30 





KTJ11-B DIAGNOSTIC MACRO M1200 25-JUL-84 17:10 PAGE 36-2 


T32 CACHE RAM BIT TEST 


R3,30$ 
TST CRO)+ 
BNE 15$ 


2963 012716 077316 408; SOB 
2964 012720 005720 
2965 012722 001335 
2966 


. « HAVE WE CHECKED ALL THE RAM ? 
. ALL PATTERNS DONE? 
. IF NOT HAVE DONE, BRANCH 
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TEST - BOOT ROMS TEST 
-SBTTL TEST - BOOT ROMS TEST 


3* THIS TEST CHECKS FOR THE PRESENCE OF BOOT ROMS. IF THEY ARE FOUND, 
3# A CRC TEST IS PERFORMED FOR ALL THE ROM’S. 


BGNTST 


LET BCSR = BCSR SET.BY OBITOS TO ENABLE ACCESSING OF ROM’S 
LET PCR = #0 TO ACCESS FIRST PAGE 
LET R4 = #173000 FOR STARTING ADDRESS 
LET $TMPO = #0 TO CLEAR COUNT FOR EMPTY ROM‘’S 
DO FOR ALL 4 POSSIBLE ROMS 
. IF (R4) EQ gy, Ss CEMPTY SOCKET) THEN 
. INCREMENT $TMPO TO COUNT EMPTY ROM’S 
OT merstathd POSITION OF EMPTY SOCKET 
LET R1 = 60 TO COUNT BYTES IN ROMS 
DO FOR EACH LOCATION IN A ROM UNTILL R1=128 
. IF LOCATION 24 ACCESSED THEN 
. IF (R4) NE #173000 THEN 
- . _ERROR IN LOCATION 24 


ENDIF 

a —_— Ri NOT TO DO BYTE 25 
° atti CRC FOR THE BYTE 
— Ri FOR THE NEXT BYTE 


eee 
ENDDO 
IF $TMPO NE #4 NOT ALL EMP 

TRY TO WRITE TO 96173000. IN DIAGNOSTIC MODE AND OUT 


IF NO TIMEOUT THEN 
° _ WRITE ACCESS TO ROMS DOES NOT TIMEOUT 


7 
012724 
£ fF SOSSEESESSSESESESEEAESSESSESEEESEEESSEESEESESESESESESESEESESESESESEEEEEESESEE 


s*TEST 33 BOOT ROMS TEST 
ff EPROEEEEEEEEEEESEEESEESESEEEEEEEESEEESEEEEEEEDEEEEEEEESEEEEEEES 


012724 TST33: SCOPE 


o 
3 PREPARE TO DO CRC 


a 
000400 177730 #BIT08,OCSR LEAVE STANDALONE MODE 
000200 177520 #6IT07,BCSR TO ENABLE BOOT ROMS 
PCR TO READ PAGE O 
#173000,R4 R4 PONTS TO FIRST ADDRESS 
$TMPO CLEAR EMPTY SOCKET COUNT 


H] 
; DO FOR EACH POSSIBLE ROM 
é 
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T33 


BOOT ROMS TEST 
012756 022704 


012762 103475 
012764 005001 
005005 


012770 022714 


013136 022701 
003344 


013144 005705 
013146 001401 
013150 104031 
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SEG 0076 
173776 1$: CMP #173776,R4 s . ALL ROM’S DONE? 
BLO 11$ s . IF SO, EXIT 
CLR Ri s . CLEAR COUNTER THRU A ROM 
CLR RS s . INITIALIZE PARTIAL CRC 
3 
; CHECK FOR EMPTY SOCKETS AND EXIT IF SO 
é 
161777 CMP #161777,(R4) 3s . EMPTY SOCKET? 
BNE 3$ s . IF NOT, — TO DO CRC 
001206 TST $PASS 3s . FIRST PASS? 
BNE 2s :s . IF NOT, BRANCH 
000001 001220 CMPB @APTENV, SENV s IN APT MODE ? 
BEQ 4 s IF SO, SKIP PRINTOUT 
600040 000052 BIT #BITOS,a0S2 s . IN UFD MODE? 
BNE es s . IF IN UFD, BRANCH 
MOV R4,-(SP) 3 . PUT NUMBER TO TYPE OUT 
013312 TYPE »NROM s . TYPE ASCII MESSAGE 
TYPOS s . CALL TYPE OUT ROUTINE 
-BYTE 6 ; . TYPE 6 DIGITS 
BYTE 0O s . SUPRESS LEADING 0'S 
001175 TYPE » $CRLF 3 . CARRIAGE RETURN 
001160 2s: INC $TMPO s . INCREMENT EMPTY a yee COUNT 
000200 ADD #200,R4 3 - PREPARE TO DO NEXT ROM 
BR 1$ : . BRANCH TO DO NEXT ROM 


IN EACH ROM CHECK LOCATION 24 AND DON’T DO CRC ON IT 


000024 $: CMP #24 ,R1 3 . LOCATION 24 ACCESSED? 
BNE * S$ ; . IF NO, GO DO CRC 
173000 CMP #173000, (R4)-+ 3 . PROPER DATA AT 24? 
BEQ 4S ; . IF YES, BRANCH 
ERROR +31 3 . WRONG DATA AT 24 
4$: INC R1 s . INCREMENT FOR AN EXTRA BYTE 
013134 JMP 8$ : - DO NOT DO CRC FOR 24 
é 
; DO CRC FOR EACH BYTE 
3 
S$: MOVB C(R4)¢ RS s . STORE CORRECT DATA IN R3 
000010 MOV 8. ,R2 s . NUMBER OF oats PER BYTE 
6%: CLC s . . CLEAR CARR 
ROR RS s . . LOW BIT PARTIAL TO CARRY 
ROR R3 3 . . CARRY TO BYTE AND BYTE TO CARRY 
BvC 7$ 3; . . XOR OF PARIAL AND BYTE LOW BITS 
120001 MOV @POLY, -(SP) 3. - XOR POLY TO PARTIAL (4 INSTRUCTIONS) 
BIC RS, (SP) s . . NOT PARTIAL AND POLY 
120001 BIC oPOLY,RS 3 . » NOT POLY AND PARTIAL 
BIS (SP)+,RS s . « POLY XOR PARTIAL 
7$: SOB R2,6$ ; . . DECREMENT BIT COUNT AND CONTINUE 
8$: INC R1 : . COUNT BYTES 
i 
s IF A ROM DONE, CHECK FOR O IN RS 
i 
000200 CMP #128. ,R1 s . ALL 64 WORDS DONE? 
BGT 3$ : . IF NOT, BRANCH 
TST RS s . IF YES, CRC 0? 
BEQ 10% ; . IF CRC = 0, BRANCH 
ERROR +31 ; . CRC FOR A ROM NOT EQUAL TO 0 
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T33 BOOT ROMS TEST 
013152 000137 012756 108: JMP 1$ . DO FOR NEXT ROM 
3 
3 TRY TO WRITE TO GET A TIMEOUT 


$ 
013737 000004 118: ERRVEC , $TMPO 
000004 MO #15$ ,ERRVEC 
80173000 


SAVE TIMEOUT VECTOR 

POINT NEW TO PROGRAM 

TRY TO WRITE TO 1ST PAGE OF ROM 
WRITE ACCESS TO ROM’S DIDN'T TIMEOUT 


RESTORE STACK 


OUT OF STANDALONE MODE 
IF NOT, EXIT TEST 
MAKE SURE THAT 

AT LEAST SOME OF 


. BRANCH 
DO 1 MORE TIME IN STANDALONE MODE 


DISABLE UBA ROM RESPONSE 
POINT NEW TIMEOUT VECTOR 
READ BOOT 


14%: 


15%: 

16%: 
#177700,R2 
#77 ,Re2 
20% 
@BITO8,OCSR 
14$ 
#BITO3,0CSR 
025% ,ERRVEC 
8@173000 ROM 
9 OSCR<3> DION’ T DISABLE UBA ROM 
fd RESTORE STACK 

. 
#BIT08!B1TO3,0CSR ; LEAVE STANDALONE MODE 
$TMPO,ERRVEC ; RESTORE STACK 
013310 000417 TST34 33 EXIT TEST 


013312 : .ASCIZ ADDRESS OF EMPTY UBA SOCKET / 
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TEST - UNIBUS MEMORY TEST 


013352 
? 013360 


3163 
3164 013362 


032737 
001473 


013701 
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000037 177734 


-SBTTL TEST - UNIBUS MEMORY TEST 


3# THIS TEST READS KMCR<5-0> TO FING OUT HOW MUCH UNIBUS MEMORY IS 
3# AVAILABLE. THEN ALTERNATING O'S AND 1'S WILL BE WRITTEN AND READ 
3# FROM MEMORY. IF THE SYSTEM CONTAINS ALL UNIBUS MEMORY, THE FIRST 
s# 32K ARE NOT GOING TO TESTED. 


BGNTST 
IF KMCR<S-0> = <0-0> THEN NO UNIBUS MEMORY 
EXIT TEST 
ENDIF 
IF KMCR<S-0> = <1-1> THEN ALL UNIBUS MEMORY 
LET R1 = #1600 LOWER BOUNDARY FOR PAR 
a Pl R2 = #7600 HIGH BOUNDARY FOR PAR 
- LET R1 = COMPLEMENTCKMCR<4-0>) 
- LET R1 = R1 SHIFT.LEFT BY a TO GET LOWER BOUNDARY PAR 
- LET R2 = #7600 HIGH BOUNDAR 
- IF KMCR<S> = #0 THEN 22 BIT "MODE 
- « LET R1 = R1 SET.BY OBITIS!BIT14!B1IT13!B8IT12 FOR 22 BITS 
LET R2 = R2 SET.BY MBIT1S!B1T14!BIT13!:B1T12 
. ENDIF 
ENDIF 
LET MMRO<O> = #1 TO ENABLE MMU 
REMAP PROGRAM AREA 
DO FOR KIPAR6 FROM R1 TO R2 
- DO FOR R4 FROM #140000 TO #157776 BY #2 FOR 4K THRU KIPAR6 
- « LET CR4) = 6125252 TO WRITE A PATTERN 
- « IF (R4) NE #125252 THEN 
° — IN UNIBUS MEMORY 


END 
LET (R4) = COMPLEMENT <(R4)> 
IF (R4) NE #52525 THEN 
- . ERROR IN UNIBUS MEMORY 
. ENDIF 
ENDDO 
ENDDO 
DISABLE MMU 
ENDTST 


FF FSSSSESESESESEESEEESESESSSESESESESASSEESEREKSESSESERESACERESESESESES 


s#TEST 34 UNIBUS MEMORY TEST 
§ SPREE EEEEERESEESESEEEEEEEEREEEESEEERESEEEEEEEEEEEEAREESEEREEEES 


TST34: SCOPE 
6 
s CHECK IF ALL NON-UNIBUS MEMORY 


BIT #37,KMCR s BITS <5-0> CLEAR? 
BEQ TST35 IF YES, SKIP TEST 


3 
s CHECK IF ALL UNIBUS MEMORY 
Q 
MOV KMCR,R1 s SAVE KMCR 
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134 UNIBUS MEMORY TEST 


3165 013366 
3166 013372 
3167 013376 
3168 013400 
3169 013404 
3170 013410 
3171 013412 


3174 

3175 013416 
3176 013420 
3177 013424 
3176 013432 
3179 013434 


042701 


022701 
005 


Ov1 
012701 
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177700 
000077 


001600 
007600 


160000 


000200 
172354 


177572 


0177700,R1 
77,R1 


it 
#1600,R1 


LEAVE ONLY <5-0> 

BITS <S-O> ALL SET? 

IF NOT, BRANCH 

DON‘ T TEST FIRST 32K 

7600 ,R2 248KB MAXIMUM CONFIGURATION 
4 GO 00 TEST 


BR 2 
1s: PC, UMSIZ SIZE UNIBUS MEMORY 
; ON RETURN R2 HAS PAR VALUE FOR UNIBUS MEMORY 
: R2,R1 STORE LOWER BOUNDARY 
07600,R2 
@BITOS,KMCR 
@170000,R1 
€170000.R2 
@BITO4 , MURS ENABLE 22 BIT MAPPING 
MEMORY WITH O1 PATTERN, VERIFY IT AND 00 THE SAME FOR 10 PATTERN 
REMAP PROGRAM TO FIRST 32k 
ENABLE MMU 
START AT T LOWER. BOUNDARY 


START 4 
WRITE FIRST PATTERN 
WRITEN OK? 


MEMORY 
ap INITIAL PATTERN 
. NEW PATTERN OK? 
. IF OK, BRANCH 

IN UNIBUS MEMORY 

GET NEXT a 


R2, KIPAR6 : ? 
3$ IF NOT, BRANCH 
MMRO 3 DISABLE MMU 


-SBTTL UBE TESTS FOR THE UNIBUS ADAPTER BOARD 


* 

e THE FOLLOWING TESTS REQUIRE THE USE OF THE UNIBUS EXERCISER 
s¢ TO TEST OUT THE UNIBUS ADAPTER BOARD.SOME TESTS REQUIRE ONE 
3 UBE OTHER TESTS REQUIRE TWO UBE'S. 


4 THE PROGRAM WILL AUTOSIZE TO SEE HOW MANY UBE'S ARE IN THE 
3¢ SYSTEM. DEPENDING ON THE RESULTS OF THE AUTOSIZING CERTAIN 
s@ TESTS WILL BE SELECTED OR DESELECTED. 
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TEST - UBE AUTOSIZING ROUTINE 
-SBTTL TEST - UBE AUTOSIZING ROUTINE 


3¢ 

3@ THE FOLLOWING ROUTINE IS USED TO AUTOSIZE THE NUMBER OF 
3@ UBE'S PRESENT IN THE SYSTEM. 

34 


31ST UBE ADDRESS 


UBE 
:* OBE1VEC sLOCATION FOR FIRST UBE VECTOR 
:* @TOUT sSETUP TIMEOUT VECTOR 
FOR RO :* #170000 TO 170160 BY 20 
FOR ) sWILL TIMEOUT IF NOT THERE 
IF TIMEOUT OCCURS THEN 


- LET RO :* RO + ys sGET NEXT UBE ADDRESS 
- « LET R2 3:2 R2 o sGET NEXT UBE VECTOR LOCATION 
. he (SP) := eCHECK 


ASSIGN THE UBE ADDRESSES TO THE CURRENT UBE TABLE 


DO FOR R4 := 1 TO 5 BY 1 
- LET (R1I)D>+ := RO 

- LET RO :* RO? 

NODO 


E 

- LET RO s* RO+ 4 sPOINT TO LAST DEVICE ADDRESS 

. LET CR1)> := RO 

- LET RO s* RO+ 2 sPOINT RO TO NEXT UBE ADDRESSES 


ASSIGN UBE VECTORS TO CURRENT UBE TABLE 


LET (R3)> s;GET POINTER TO VECTOR ADDRESS 
LET R2 := 3;GET VECTOR PSW LOCATION 

LET (R3)o : sGET POINTER TO VECTOR PSW 
LET R2 :* R2 + 2 sGET NEXT VECTOR ADDRESS 

TF WE HAVE FOUND TWO UBE’S THEN 

. EXIT TEST 

ENDIF 


fF OSSRESEESESEEEESEEESEEESSEEEEESEEEEEESESEEESOSESDOSSESEEESEEEES 
s¢TEST 35 UNIBUS EXERCISER AUTOSIZING ROUTINE 
§ sSOCOOEEEECOEESEEEESEEEEESEOEEESEEESEEEOEEESEESESEESESESEOOO: O08 


013550 TST35: SCOPE 


3269 013552 000400 177730 #B1T08,O0CSR s MAKE SURE THAT OUT OF DIAGN. MODE 
3270 013560 000040 172516 

3271 013566 001206 ASS ? 

3272 013572 s NO, THEN NO NEED TO SIZE AGAIN 
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SEQ 0081 
T35 UNIBUS EXERCISER AUTOSIZING ROUTINE 

3273 3 
3274 3; INITIALIZE POINTERS FOR AUTO-SIZING 
3275 3 
3276 013574 012700 170000 MOV #170000,RO 3s GET ADDRESS OF FIRST POSSIBLE UBE 
3277 013600 012702 000510 MOV #510,R2 s GET VECTOR OF FIRST POSSIBLE UBE 
3278 013604 012701 002150 MOV 6BE 108 ,R1 3 TABLE HEADER FOR 1ST UBE 
3279 013610 012737 013622 000004 MOV 01% ,804 3 SET UP TIMEOUT VECTOR 
3280 013616 005710 100$: TST CRO) 3; . IS THERE A UBE HERE ? 
3281 013620 000412 — BR 2s 3 . « YES,THEN BRANCH AROUND TOMEOUT ROUTINE 
3282 3 
3283 3 TIMEOUT ROUTINE 
3286 013622 062706 000004 1$: ADD 04 ,SP 3 . « READJUST THE STACK 
3287 013626 020027 170160 CMP RO, 0170160 3 . . HAVE WE CHECKED ALL THE ADDRESSES 
3288 013632 001431 BEQ 10$ 3 . . YES THEN GO SEE IF WE FOUND ANY UBE’S 
3289 013634 062700 000020 ADD @20,RO0 3: . » NO, THEN GET THE NEXT UBE ADDRESS 
3290 013640 062702 000004 ADD 04 ,R2 Sass GET THE NEXT UBE VECTOR 
34] 013644 000764 BR 100% ; . . GO SEE IF THE NEXT UBE IS THERE 

8 
3293 3: ASSIGN UBE ADDRESSES TO THE CURRENT UBE TABLE 
3295 F 
2296 013646 012704 000005 2s: MOV @5.R 3 . SET UP LOOP COUNTER 
3297 013652 010021 3%: MOV RO, CRI) 3 . .- ASSIGN AN ADDRESS TO THE POINTER 
3298 013654 005720 TST ¢ RO)+ 3 . . GET THE NEXT ADDRESS 
3299 613656 077403 S$oB R4,3$ Ss —€ WE DONE ? NO THEN GO GET NEXT ADDRESS 
3300 013660 062700 000004 ADD 04;RO t« POINT RO TO LAST UBE ADDRESS 
3301 013664 010021 MOV RO,CR1)+ 3 . PUT THE ADDRESS INTO THE POINTER TABLE 
a | 013666 005720 TST CRO)>. 3 . POINT RO TO NEXT UBE ADDRESS 
3304 8 
3305 3: ASSIGN UBE VECTORS TO CURRENT UBE TABLE 
3 , 
3308 013670 010221 MOV R2,CR1)> 3 . GET POINTER TO VECTOR ADDRESS 
3309 013672 005722 TST (R2)+ 3 . GET THE VECTOR PSW LOCATION 
3310 013674 010221 MOV R2,(R1)> 3: . GET POINTER TO VECTOR PSW 
3311 013676 os rae TST (R2)+ 3: . GET THE NEXT UBE'S VECTOR ADDRESS 
are 013700 005237 001722 INC UBECT 3 . FLAG WE HAVE FOUND ANOTHER UBE 
3314 FY 
3315 3 SEE IF WE HAVE FOUND TWO UBE'S 
ay . 
3318 013704 022737 000002 001722 CMP @2,UBECT 3 . HAVE WE FOUND TWO UBE'S 
3319 013712 001401 BEQ 10$ ; . GO O00 THE UBE TESTS 
3320 013714 000740 BR 100$ 
3321 
3322 3 
3323 3 PROGRAM WILL CHECK IF ANY UBE'S WERE FOUND 
3305 ' 
3326 013716 012737 002234 000004 10%: MOV @TIMOUT 204 3 RESTORE TIMEOUT be 
3327 013724 005737 001722 TST UBECT 3 HAVE ANY UBE'S BEEN FOUND ? 
3328 013730 001002 BNE TST36 33 GO OO THE SELECTED TESTS FOR 1 UBE 
3329 013732 000137 022454 JMP UBEM 3 SKIP ALL THE UBE TESTS 
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TEST - NPG ARBITRATION 
SBTTL TEST - NPG ARBITRATION 


Q 
3 THIS TEST CHECKS THAT A NPG CAN BE GRANTED AT ANY PRIORITY OF THE CPU. 


BGNTST 


DO FOR PSW FROM 340 DOWNTO #0 BY #40 
LET @BE1CC = -1 TO DO 1 CYCLE 
LET @BE1BA = @$TMPO FOR THE ADDRESS 
LET SBE1CR1 = 02041 TO DO 1 DATI 
WAIT FOR 8BE1CR1<7>=1 READY 
IF @BE1CC EQ -1 THEN 
. ERROR NPG DIDN'T HAPPEN 
ENDIF 


§ SPPREOEEEEEEEEEESEEEEEESEEESSESRESEEESEEESEEEEEEEESESESEEEESEEEES 
s*TEST 36 NPG ARBITRATION 
§ SEPOSSERESEEEEESEEESSEEESERESOEESESEEEREEEEEEOEEEEESEEEEEDESEEES 


013736 TST36: SCOPE 


335 
3354 013740 PC, IUBE 
3355 013744 000340 177776 0340 ,PSW 

18: -1,aBE1CC 
O$TMPO,@BEiBA 
02041, 8BE1CR1 
@BE1CR1 


INITIALIZE THE UBE 


3359 013774 2s: 
3360 014000 2s 
3361 014002 177777 @-1,aBE1CC 
3362 014010 3$ 
3363 014012 


T FOR READY 
CYCLE COUNT INCREMENTED? 
IF YES, BRANCH 
IF ERROR IN NPG 
DECREMENT PRIORITY 
LAST ONE? 
IF NOT, BRANCH 
RESTORE PRIORITY 


+32 
000040 177776 SUB 040 ,PSW 
000000 177776 #0 ,PSW 


1$ 
coos 014032 012737 177776 0340,PSW 
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TEST - NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 
“sta TEST - NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 
{2 MEN THE PROCESSOR HAS HIGHER PRIORITY THAN THE REQUESTING DEVICE. 
3 
; BGNTST 


‘ 
; SET UP SBE1VEC TO POINT TO ERROR_CHECK _ROUTINE 
; SET UP @BE1PSW TO 0340 


3* 
3# TRY TO DO BR7 WITH CPU PRIORITY AT 7 


3% 
LET @BE1CR1 = 621 TO DO 1 DATI 
LET PSW = #340 TO SET PRIORITY AT 7 


00 
IF INTERUPT THEN 
ion BG7 GRANTED WITH PROCESSOR AT HIGHER PRIORITY 


3¢ 
3@ TRY TO DO BR6 WITH CPU PRIORITY AT 7 - 6 


va FOR R3 FROM 0340 DOWNTO #300 BY #40 
LET @BE1CR1 = 011 TO rh 1 eerte 

- LET PSW = R3 TO CHANGE PR 
DO “NOP” 


” IF INTERRUPT THEN 
. enone OR BG6 GRANTED WITH PROCESSOR AT HIGHER PRIORITY 


ENDDO 
LET PSW = 0340 FOR THE NEXT PART 


am 

3# TRY TO DO BRS WITH CPU PRIORITY AT 7 - 5 

32 

3 - FOR R3 FROM #340 DOWNTO 0240 BY 040 
LET @BE1CR1 = @5 TO DO 1 DATI 

LET hos * R3 TO CHANGE PRIORITY 


00 
. IF INTERRUPT THEN 
. — BGS GRANTED WITH PROCESSOR AT HIGHER PRIORITY 


ENDDO 
LET PSW = 0340 
3e 
3# TRY TO DO BR4 WITH CPU PRIORITY AT 7 - 4 
3* 
os FOR R3 FROM 0340 DOWNTO #200 BY 040 
LET @BE1CR1 = #2003 TO DO 1 DATI 
LET Be = R3 TO CHANGE PRIORITY 


DO 
IF INTERRUPT THEN 
He BR4 GRANTED WITH PROCESSOR AT HIGHER PRIORITY 
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79 
3480 


014112 


014114 


014242 
75 


014244 
014252 
014256 


000004 


004737 
012737 
012777 


012777 
012777 


012777 
012703 
012777 


G7 


MACRO M1200 25-JUL-84 17:10 PAGE 41-1 
TEST - NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 


000011 


014220 
000340 
000005 
177776 


165732 
000004 
000040 
000240 


014274 
000340 
000003 


177776 
166104 


166074 
166060 


166042 
166022 


165766 
165746 


165712 
165672 


FF SASEHAASSSHSSHASSHSSASAEESASESEEEESSESHESEEEHESEESEEESEEEESEEEEEEED 


s*TEST 37 


NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 


SS FPAOASAREAEAESEESESEEEEEESESEESEEEESEEEESEEEESEEEEEEEESEESEEEEEEEDS 


TST37: SCOPE 


»PS 
MOV 0340, » BE 1PSW 


3 
: TRY TO 00 BR7 WITH CPU PRIORITY AT 7 


3 
MOV 1% ,,aBE1VEC 
MOV 621,@BE1CR1 


NOP 
BR 2s 

1$: CLR @BE1CR1 
ADD ~SP 
ERROR +32 

8 

3: TRY TO DO BR6 WITH CPU PRIORITY AT 7-6 

t 

2s: MOV 04% ,aBE1VEC 
MOV $340,R3 

3$: MOV @11,88E1CR1 
MOV R3,PSW 
NOP 
BR 

4$: CLR — 
ERROR +32 

5$: SUB 640,R3 
CMP R3, 0300 
BGE 3 


3 
s TRY TO DO BRS WITH CPU PRIORITY AT 7-5 


MOV 07% ,@BE1VEC 


MOV #340 ,R3 

6%: MOV #5, aBE1CR1 
MOV R3,PSW 
NOP 
BR 

7$: CLR @BE1CR1 
ADD » SP 
ERROR + 

8s; SUB #40 ,R3 
CMP R3, 0240 
BGE 6$ 


6 
s TRY TO DO BR4 WITH CPU PRIORITY AT 7-4 


MOV #10$ ,@BE1VEC 
MOV #340 ,R3 
9%: MOV 03, QBE1CR1 


INITIALIZE THE UBE 
SET CPU PRIORITY AT 7 
AT PRIORITY 7 


POINT es ae TO PROGRAM 
BR7 WITH 

JUST _IN CA Se. 

BPANCH AROUND IF NO INTERRUPT 
CLEAR ANY OTHER REQUESTS 
ADJUST STACK POINTER 

BG7 GRANTED WITH CPU AT 7 


POINT UBE VECTOR TO PROGRAM 
START WITH PRIORITY AT 7 

- BR6 WITH FUNO 

CHANGE PRIORITY 

JUST IN CASE OF INTERRUPS 
IF NO INTERRUPS, BRANCH 
CLEAR ANY OTHER REQUESTS 
ADJUST STACK POINTER 

BG6 GRANTED WITH CPU AT 6-7 
LOWER PRIORITY 

LAST ONE TO CHECK? 

IF NOT, BRANCH 


POINT UBE VECTOR TO PROGRAM 
START WITH PRIORITY AT 7 

. BRS WITH FUNO 

. CHANGE PRIORITY 

- JUST IN CASE OF INTERRUPS 
IF NO INTERRUPS, BRANCH 
CLEAR ANY OTHER REQUESTS 
ADJUST STACK POINTER 

BGS GRANTED WITH CPU AT 5-7 
. LOWER PRIORITY 

. LAST ONE TO CHECK? 

. IF NOT, BRANCH 


POINT UBE VECTOR TO PROGRAM 
START WITH PRIORITY AT 7 
. BR6 WITH FUNO 


SEQ 0084 
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137 NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 


3481 014264 010337 177776 R3,PSW 
3482 014270 NOP 

3483 014272 

34864 014274 165656 

3485 014300 000004 

3486 014304 

3487 014306 000040 

3488 014312 000200 

3489 014316 

3490 


3491 


CHANGE PRIORITY 
. JUST IN CASE OF ye he 


6BG4 GRANTED WITH CPU AT 4-7 
. LOWER PRIORITY 

LAST ONE TO CHECK? 
. IF NOT, BRANCH 
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TEST - BR7-BR4 ARBITRATION : 
.SBTTL TEST - BR7-BR4 ARBITRATION 


3@ THIS TEST CHECKS THAT BR7-BR4 INTERRUPTS CAN OCCUR WITH A PROCESSOR 
3# PRIORITY AT A LOWER LEVEL 

3* 

8 

; BGNTST 


3 

H SET UP SBE1PSW TO #340 

3% 

:# TRY TO DO BR7 WITH CPU PRIORITY AT 6 - O 


3* 
00 FOR R3 FROM #300 DOWNTO 00 BY #40 
. LET PSW = 0340 
. LET @BE1ICR1 = 621 TO DO 1 DATI 
° aH = = R3 TO CHANGE PRIORITY 


- IF NO INTERRUPT THEN 

- .« _ERROR 8G7 DOESN'T OCCUR 
ENDIF 

ENDDO 


& 
3 TRY TO DO BR6 WITH CPU PRIORITY AT S - O 
3% 

nd FOR R3 FROM 0240 DOWNTO #0 BY 040 


LET PSW = 0340 
- LET @BE1CR1 = 411 TO DO 1 DATI 


. LET PSW = R3 TO CHANGE PRIORITY 
00 “NOP” 


IF NO INTERUPT THEN 
. ERROR BG6 DOESN'T OCCUR 
ENOIF 

ENDDO 


3¢ 

3@ TRY TO DO BRS WITH CPU PRIORITY AT 4 - O 

” FOR R3 FROM #200 DOWNTO #0 BY 040 
LET PSW = 9340 

. LET SBE1CR1 = #5 TO DN 1 DATI 

. LET PSW = R3 TO CHANGE PRIORITY 

. 00 “NOP” 


IF NO INTERRUPT THEN 
. ERROR BGS DOESN'T OCCUR 
ENDIF 


ENDDO 
s 
;# TRY TO DO BR4 WITH CPU PRIORITY AT 3 - 0 
3* 
00 FOR R3 FROM 0140 DOWNTO 00 BY 040 
LET PSW = 0340 
LET @BE1CR1 = 3 TO DO 1 DATI 
LET PSU = R3 TO CHANGE PRIORITY 


00 

IF NO INTERRUPT THEN 

. ERROR BG4 DOESN'T OCCUR 
. ENDIF 


ENDDO 
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SEQ 0087 
TEST - BR7-BR4 ARBITRATION 

3550 3 
3551 3s ENOTST 
3552 3 
358 Pe ee Oe RET Te eed ine eR ene eee 
3555 § PRAREEEEEEEEEESEEESEEESEEEEEERESEREESEEESEEEEEEEEEEEEDEEEEEEEDS 

s*TEST 40 BR7-BR4 ARBITRATION 

3 FESSASASSSSSESHSSESSESEASESESESESESESESESESSESEEERESESSEESEEEESESEEEE 

014320 000004 TST40: SCOPE 

3555 
3557 014322 004737 002450 JSR PC, IUBE 3 INITIALIZE THE UBE 
3558 014326 012777 000340 165632 MOV $340, 3BE1PSW 3 AT PRIORITY 7 
3559 F 
3560 3; TRY TO DO BR7 WITH CPU PRIORITY AT 6-0 
3561 3 
3562 014334 012777 014400 165622 MOV $2$ ,8BE1VEC s POINT UBE VECTOR TO PROGRAM 
3563 014342 012703 000300 MOV 9300,R3 3 START WITH PRIORITY AT 6 
3564 014346 012737 000340 177776 18%: MOV #340 ,PSW 3 . RAISE PRIORITY TO 7 
3565 014354 012777 000021 165574 MOV $21,98E1CR1 3 . BR7 WITH FUNO 
3566 014362 010337 177776 MOV R3,PSW 3 . LOWER PRIORITY 
3567 014366 000240 NOP 3 . JUST IN CASE OF INTERRUPS 
3568 014370 005077 165562 CLR @BE1CR1 3 . CLEAR ANY OTHER REQUESTS 
3569 014374 104032 ERROR +32 3s . BR7 NOT GRANTED WITH CPU AT 6-0 
3570 014376 000402 BR $ 3 . DON'T ADJUST STACK IF NO INTERRUPT 
3571 014400 062706 2s: 04,SP 3 . ADJUST STACK POINTER 
3572 014404 162703 000040 3$: SUB #40,R3 3 . LOWER PRIORITY 
3573 014410 022703 CMP 60,R3 3 . LAST ONE TO CHECK? 
dans 014414 002354 BGE i$ 3 . IF NOT, BRANCH 

3 
ad 3: TRY TO DO BRE WITH CPU PRIORITY AT 5-0 
S 3 
3578 014416 004737 002450 JSR PC, IUBE s INITIALIZE THE UBE 
3579 014422 012777 014466 165534 MOV 053, aBE1VEC 3: POINT UBE VECTOR TO PROGRAM 
3580 014430 012703 000240 MOV 0240, R3 : START WITH PRIORITY AT S 
35€1 014434 012737 000340 177776 4%: MOV 340 ,PSW 3 . RAISE PRIORITY TO 7 
3582 014442 012777 000011 165506 MOV $11, 98E1CR1 3; . BR6 WITH FUNO 
3583 014450 010337 177776 MOV R3,PSW 3 . LOWER PRIORITY 
3584 014454 000240 NOP 3 . JUST IN CASE OF —— 
3585 014456 005077 165474 CLR @BE1CR1 3 . CLEAR ANY OTHER REQUEST 
3586 014462 104032 ERROR +32 3 . BR6 NOT GRANTED WITH ry AT S- 0 
3587 014464 000402 BR 6$ s . DON’T ADJUST STACK 
588 014466 062706 000004 5$: ADD @4,SP 3 . ADJUST STACK POINTER 
3589 014472 162703 000040 6$: SuB #40,R3 3 . LOWER PRIORITY 
3590 014476 022703 000000 CMP 40,R3 3 . LAST ONE TO CHECK? 
oot 014502 002 BGE 4$ 3 . IF NOT, BRANCH 

3 
ay 3; TRY TO DO BRS WITH CPU PRIORITY AT 4-0 

8 
3595 014504 004737 002450 JSR PC ,.IUBE 3 INITIALIZE THE UBE 
3596 014510 012777 014554 165446 MOV 8$ ,@BELVEC ; POINT UBE VECTOR TO PROGRAM 
3597 014516 012703 000200 MOV 9200,R3 3: START WITH PRIORITY AT 4: . 
3598 014522 012737 000340 177776 7%: MOV 0340 ,PSW 3 . RAISE PRIORITY TO 7 
3599 014530 012777 000005 165420 MOV 05,9BE1CR1 3 . BRS WITH FUNO 
3600 014536 010337 177776 MOV R3,PSW : . LOWER PRIORITY 
3601 014542 000240 NOP 3 . JUST IN CASE OF INTERRUPS 
3602 014544 005077 165406 CLR SBE1CR1 3 . CLEAR ANY OTHER REQUESTS 
3603 014550 104032 ERROR 32 ; . BRS NOT GRANTED WITH CPU AT 4-0 
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T40 ARBITRATION 


000402 9$ - DON’T TOUCH STACK 
062706 04 ,SP - ADJUST STACK —— 
162703 g #40 ,R3 . LOWER PRIORITY 

022703 000000 #0,R3 - LAST ONE TO CHECK? 
014570 002354 7$ - IF NOT, BRANCH 


3 
3; TRY TO DO BR4 WITH CPU PRIORITY AT 3-0 
3 


165360 


177776 
000003 165332 03, 98E1CR1 
177776 — R3,PSW 


165320 @BE1CR1 


12s 
000004 : ADD 04 ,SP 
000040 : 640 ,R3 
000000 Cc oo 


INITIALIZE THE UBE 
POINT UBE VECTOR TO PROGRAM 
vag WITH PRIORITY AT 3 
RAISE PRIORITY TO 7 
ITH FUNO 


1 
014572 


. ORITY 
JUST_IN CASE OF INTERRUPS 
CLEAR ANY OTHER REGUESTS 

- BR&4 NOT GRANTED WITH CPU AT 3-0 
DON’T ADJUST STACK 
ADJUST a 


IF NOT, 
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3629 .SBTTL TEST - ARBITRATION BETWEEN INTERRUPTS AND PIRQ’S 
3630 
3631 - THIS TEST gs THAT PIRG@ REQUESTS OVERRIDE INTERRUPT REQUESTS 
3632 * OF THE SAME LEVEL. 
3633 4 
3634 3 SET UP @BE1VEC AND PIRQVEC AND PRIORITY FOR BOTH 
3635 3 LET Ri = 20 FOR BG7 FROM UBE 
3636 3 LET R2 = #100000 FOR PIRQ7 
3637 3 DO FOR R3 FROM #300 DOWNTO 4140 BY 040 
36 3 . LET PSW = 0340 
3639 Fy . LET @BE1ICR1 = R1 FOR INTERRUPT LEVE 
3640 3 . LET SBE1CR1 = SBE1CR1 SET.BY 41 TO DO 1 DA TI 
3641 3 . LET PIRQ = PIRQ SET.BY R2 FOR _ LEVEL 
3642 3 . LET PSW = R3 TO CHANGE PRIORITY 
3643 3 . WAIT FOR INTERRUPT 
3644 3 . IF PIRQ INTERRUPT DION’ T HAPPEN OR SBE ICC NE -1 THEN 
3645 3 - « ERROR IN ARBITRATION BETWEEN PIRQ:S AND INTERRUPTS 
3646 3 - ENDIF 
3647 3 . LET R1 = R1 SHIFT RIGHT 1 
3648 3 . LET R2 = R2 SHIFT RIGHT 1 
3649 3 E 
3650 3 
3651 s ENOTST 
3652 3 
a3 PASM eer ere REET SrsweeeENSCIOHSoSESaSONseRSSSSSerTSOTETSSSeESe 
3655 ff POPHAEESEEEEESEEEESEEEEERESEDEEEEESEEEEEEEEEEEEEEREDEEEEEEEEOES 

s*TEST 41 ARBITRATION BETWEEN INTERRUPTS AND PIRQ’S 

ff POREOEEEEEEEEESEEERESESEEOEEEEEEEEESEEEEEEEEEEEEEEEEEEEDEEEEEEDED 

014660 000004 TST41: SCOPE 

3656 014662 004737 450 JSR - TUBE : INITIALIZE THE UBE 
3657 014666 012777 014756 165262 MOV $2¢ ,@BE1CR1 : POINT UBE VECTOR TO PROGRAM 
3658 014674 012777 000340 165264 MOV 6340, aB8E1PSW 3 AT PRIORITY 7 
3659 014702 012737 014766 000240 MOV @3$ ,PIRQVEC ; POINT PIRQ VECTOR TO PROGRAM 
3660 014710 012737 000340 000242 MOV $340 ,80242 3s AT PRIORITY 7 
3661 014716 012701 000020 MOV $20,R1 3: STORE FOR BR7 
3662 014722 012702 100000 MOV #100000 ,R2 3; STORE FOR PIRQ 7 
3663 014726 012703 000300 MOV #300,R3 3 START WITH PRIORITY 6 
3664 8 
3665 3 DO ARBITRATION FOR LEVEL 7-4 
3666 3 
3667 014732 012737 000340 177776 i1%: MOV $340 ,PSW 3: . START WITH PRIORITY 7 
3668 014740 010177 165212 MOV R1,aBE1CR1 3 . CHANGE UBE PRIORITY 
3669 014744 010237 177772 MOV R2,PIRQ 3 . CHANGE PIRQ PRIORITY 
3670 014750 010337 177776 MOV R3,PSW 3; . LOWER CPU PRIORITY 
3671 014754 000001 WAIT 3 . WAIT FOR INTERRUPT 
3672 014756 062706 000004 2s: ADD 04,SP 3 . CLEAN UP STACK 
3673 014762 104032 ERROR +32 3 . PIRQ'S DON’T TAKE PRIORITY 
3674 014764 000402 8 4$ 3 . DON'T CLEAN UP STACK TWICE 
3675 014766 062706 000004 3%: ADD #4 ,SP 3 . CLEAN UP STACK 
3676 014772 006001 4$: ROR R1 : . ADJUST BR FOR UBE 
3677 014774 00600 ROR R2 3 ADJUST PIRQ'S 
3678 014776 162703 000040 suB $40,R3 3 LOWER FOR CPU PRIORITY 
3679 015002 022703 000140 CMP #140,R3 3 PRIORITY 3? 
3660 015006 001351 BNE 1$ 3 BRANCH IF NOT YET 
3681 015010 005037 177772 CLR PIRQ PF CLEAR ANY REQUESTS 


SEQ 0089 


M7 


KTJ11-B DIAGNOSTIC MACRO M1200 25-JUL-84 17:10 PAGE 44 
TEST - ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 
-SBTTL TEST - ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 


3# THIS TEST CHECKS THAT WHEN TWO INTERRUPTS FROM DIFFERENT UBE'S 
3* COME IN AT THE SAME TIME, THE BUS IS GRANTED TO THE REQUEST WITH HIGHER 
3* 


BGNTST 
IF UBECT NE #2 THEN THERE'S NO 2ND UBE 
. EXIT TEST 


ENDIF 

SET UP VECTORS AND PSW FOR BOTH UBE’S 

LET R1 = #20 FOR BR7 

DO 3 TIMES FOR 8G7-6G6, —— 

. LET PSW = 340 FOR PRIORITY 

. LET @BE1CR1 = R1 

. LET R1 = R1 SHIFT RIGHT 1 

. LET @BE2CR1 = R1 TO SET PRIORITY OF 2ND VBE 

. LET @SIMLGO = #1 TO DO SIMULTANEOUS ” 
LET PSW = #140 TO — PRIORITY FOR INTERRUPTS 
WAIT FOR INTERRUPTS 
IF INTERRUPTS FROM 1ST HAPPENED AFTER 2ND THEN 
ion IN BR ARBITRATION 


§ PHRASE EEEEEEEEEEEES SEES OREEEEEEEEEEEEEESEEEEEEEEEE6E4O640860048 

s#TEST 42 ARBITRATION BETWECN INTERRUPTS FROM 2 UBE 

§ PEREREEEEEEESEESEESESEEEEEESESEEEEESEEEESEESEEEEEEEEEEEEEEEEES 
015014 000004 TST42: SCOPE 


015016 022737 oe \aeer :; 2 UBE'S? 
015024 T43 EXIT, IF NO 
015026 ; INITIALIZE THE UBE 


° 

3; INITIAL SETUP 

° 

og A AT a ps 6 
20,R1 UBE AT LEVEL 
165114 #BE1SV,@BE1VEC POINT UBe VECTOR TO PROGRAM 
165110 #340, 9BE1PSW AT PRIORITY 7 
165120 @BE2SV , ABBE2VEC POINT UBE2 VECTOR TO PROGRAM 
012777 165114 0340, 9BE2PSW AT PRIORITY 7 


BETWEEN 2 INTERRUPTS OF DIFFERENT LEVEL 


1 
3732 015072 012737 177776 0340 ,PSW 3; . RAISE PRIORITY TO 7 
3733 015100 010177 R1,@BE1CR1 ; . HIGHER PRIORITY TO UBE1 
3734 015104 006001 Ri 3; . GET LOWER PRIORITY 
3735 015106 010177 R1,@BE2CR1 ; . LOWER PRIORITY TO UBE2 
3736 015112 052777 000001 165036 #BITOO, @BE1CR1 ; . SET GO BIT OF UBE #1 
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Q@ 0091 
T42 ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 
3737 015120 052777 000001 165050 BIS #BITOO,ABE2CR1 s . SET GO BIT OF UBE #2 
3738 015126 010337 177776 MCV R3,PSW 3 . LOWER CPU PRIORITY 
3739 015132 000240 NOP ; . GIVE UBE TIME TO INTERRUPT 
3740 015134 000240 NOP 5 
3741 015136 000240 NOP ; 
3742 015140 005737 001724 TST BEL INT s . DID UBE1 INTERRUPT 
3743 015144 001002 BNE S$ ; . YES,THEN GO MAKE SURE UBE2 DIDN'T 
3744 015146 104032 ERROR +32 ; . LOWER ORDER INTERRUPTS HAPPNE BEF 
3745 015150 000404 BR 10$ s . GO SEE IF WE ARE DONE 
3746 015152 005737 001726 S$: TST BE2INT s; . DID UBE2 INTERRUPT 
3747 015156 001401 BEQ 10% : . NO, THEN GO SEE IF WE ARE DONE 
3748 015160 104032 ERROR +32 ; . YES, THEN ERROR IN ARBITRATION 
3749 015162 005037 001724 10$: CLR BELINT ; . INITIALIZE INTERRUPT FLAGS 
3750 015166 005037 001726 CLR BE2INT : 
?.51 015172 162703 900040 SUB #40 ,R3 : . DO THE NEXT LEVEL 
3752 015176 622703 000100 CMP #100,R3 3 . CPU AT 2 (LAST ONE)? 
3753 015202 001333 BNE i$ 3 . BRANCH IF NOT YET 
3754 015204 005077 164770 CLR SBE2CLR ; CLEAR ERRORS ON 2ND UBE 
Le 015210 000420 BR TST43 3 GO TO NEXT TEST 
3757 015212 012777 000000 164756 BE1SV: MOV #0, @BE2CR1 ; CLEAR PENDING UBE #2 INTERRUPTS 
3758 015220 005237 001724 INC BELINT : SET BE1 INTERRUPT FLAG 
3759 015224 005037 001726 CLR BE2INT ; CLEAR BE2 INTERRUPT FLAG 
Lag 015230 000002 RTI 
3762 015232 012777 000000 164716 BE2SV: MOV #0,9BE1CR1 ; CLEAR PENDING UBE #1 INTERRUPTS 
3763 015240 005237 001726 INC BE2INT ; SET BE2 INTERRUPT FLAG 
3764 015244 005037 001724 CLR BE1LINT ; CLEAR BE1 INTERRUPT FLAG 


3765 015250 000002 RTI 
3766 


B8 
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TEST - POWER DOWN TEST 
-SBTTL TEST - POWER DOWN TEST 


3@ THIS TEST INSURES THAT POWER DOWN CYCLE CAN BE INVOKED FROM THE 
3@ UNIBUS SIDE OF UBA, IT WILL RUN ONLY IF POWER UP OPTION 11 

3@ IS SELECTED (TRAP IHRU 24/26) IN THE EAROM ON CPU BOARD. 

3¢ 


BGNTST 


LET BCSR<6,5>*<0,1> TO ACCESS EAROM 
IF 80165002<7,6> NE <1,1> FOR POWER UP CODE 00 THEN 
Lease TEST 


ENOI 

SAVE PWRVEC 

POINT PWRVEC TO PROGAM AREA 

LET SBE1CR2<4> = 01 

IF NO TRAP TO 24 THEN 

—_—" EXECUTING POWER DOWN THRU UNIBUS 


E 
LET @BE1CR2<4> = 00 FOR POWER UP 
RESTORE PWRVEC 


§ SSCOOSSESESEESEESEEEEEESSEEESEEESESEESERESEEEESEEEEESESESESEEESS 
OWER TEST 


s*TEST 43 
fF OCCCOOEESEESSSESEEESEEESSEEESEEESEESEOESEEESSEEES LebSEEEEEEEEES 


TST43: SCOPE 


H 
3 RESTRICTIONS ON RUNNING THIS TEST 
é 
s FIRST PASS 
33IF NOT 1ST PASS, DON’T It 


000052 
TST44 ssEXIT TEST, IF $0 

001220 MPB 3 APT? 
TST44 33sEXIT TEST IF APT 

177524 8 1T03,80177524 3 FORCED CONSOLE MODE? 
TST44 ssIF YES, EXIT TEST 
BITO6.BCSR 3 ENABLE ACCESS THRU 165000 
B8IT0S.BCSR 3 READ EAROM 
OBI T06 ,80165000 3: BATTERY OVERRIDE? 
TST44 ssIF SO, EXIT TEST 
@BITO7 80165002 s POWER UP CODE 00? 
TST44 ssEXIT TEST, IF NOT 
OBI T06 ,.80165002 3: POWER UP CODE 0? 
TST44 s3sEXIT TEST, IF NOT 
PC, IUBE 3 INITIALIZE THE UBE 


3 
s DO POWER DOWN SEQUENCE 


361 

3818 015362 013737 PWRVEC , $TMPO STORE POWER DOWN VECTOR 
012737 01% ,PWRVEC POINT NEW ONE TO PROGRAM 

3820 015376 013737 000026 PURVEC +2, 8026 AT PRIORITY 7 

3621 015404 052777 OB1T04 , @BE1LCR2 START POWER DOWN 





KTJ11-8 DIAGNOSTIC 


T43 


POWER DOWN TEST 


3822 015412 
3823 015414 
3824 015416 


012706 
013737 


C8 


MACRO M1200 25-JUL-84 17:10 PAGE 45-1 


000004 
015454 
177777 


001100 
001160 


164532 


000024 


1$: 


2s: 


3%: 
108: 


32 

10$ 

OB1IT04 ,aBE1CR2 
@4,SP 


03% ,PWRVEC 
0177777,R1 
R1,2$ 

32 

10% 


#1100,SP 
$TMPO ,PWRVEC 


WAIT WHAT HAPPENED 
NO POWER DOWN FOR THRU UNIBUS 


CLEAR POWER DOWN BIT 
ADJUST STACK POINTER 
POINT POWER UP VECTOR 
TIMEOUT ROUTINE 

WAIT A WHILE 

NO POWER UP 


ADJUST STACK 
RESTORE POWER DOWN VECTOR 


SEQ 0093 


D8 


KTJ11-B8 DIAGNOSTIC MACRO M1200 25-JUL-84 17:10 PAGE 46 


TEST - WRONG PARITY TEST 
-SBTTL TEST - WRONG PARITY TEST 


3@ THIS TEST CHECKS THAT A WRONG PARITY TRAP CAN BE GENERATED ON 
3@ DATI CYCLES. 
3% 


BGNTST 


SAVE 114 WRONG PARITY yi AND POINT IT TO PROGRAM AREA 
LET @BE1CC = -1 TO OO 1 CYCLE 

LET SBEIBA = @$TMPO FOR THE ADDRESS 

LET SBE1CR2 = SBE1CR2 SET.BY @BIT12 10 ENABLE WRONG PARITY 
LET SBE1CR1 = #13041 TO DO 1 DATO FROM BEICC 

IF NO TRAP TO 114 THEN 

. ERROR GENERATING WRONG PARITY TRAP THRU UNIBUS 


ENDIF 
LET SBE1CR2 = #0 TO CLEAR WRONG PARITY BIT 
RESTORE VECTOR 114 


FF PPOOEEESEEEEEESSSEEEEESEEEESEESEEEEEEEESEEESESESEEEEDEESESEEEES 
s¢TEST 44 WRONG PARITY TEST 

ff OCRESSESEEESEEESEEESEESEEEESEEEEEEEEEEEEOEEESEEEESENREEEEESEEEES 
TST44; SCOPE 


PC, IUBE 
80114,R1 
#1$,80114 
0340 ,80116 
®-1,8BE1CC 


o$TMPO,@BE1BA 
$B1T12,aBE1CR2 
@BE1CR1 


+32 
00, @BE1CR2 
04,SP 


INITIALIZE THE UBE 
SAVE PARITY TRAP 
POINT TO a AREA 
AT iy oy 

DO 1 CYCLE 

SETUP nyt ne 
SET WRONG PARITY BIT 
READ A UBE REGISTER 
SHOULD CAUSE A PARITY TRAP 
NO PARITY TRAP 

CLEAR WRONG PARITY BIT 
ADJUST STACK POINTER 
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TEST - NO SACK TIMEOUT 
-SBTTL TEST - NO SACK TIMEOUT 


3@ THIS TEST INSURES THAT THE CPU TIMES OUT AND DROPS A GRANT IF NO 

3@ SACK SIGNAL IS RECEIVED. IF THE CPU DOES NOT TIMEOUT, THE UBE 

3@ WILL TIME OUT AND SEND SACK TO PREVENT THE BUS FROM HANGING AND WILL SET 
3¢@ THE ERROR BIT IN CRe. 

3% 


BGNTST 


LET @BEICC = -1 TO DO 1 TRANSFER 
LET SBE1CR2 = Geeiche Se1-8 -BY ns TO INHIBIT SACK 


Ne 
MEQUT AND SBE1CR2 SET. By @BITO7 THEN 
RROR CPU FAILED TO DO NO SACK TIMEOUT 


FF SSSSSSSHHSSSHSSSSSESESSESSESSSESESESESESESEEHEEEEEESESESESEEESESESD 


s*TEST 45 NO SACK TIMEOUT 
§ EPOSEERESEEEEEESEEESEESEEEESSEEESEESESEESESESEEEEEEEESEERESEEESE 


015560 TST4S: SCOPE 
3900 015562 PC, IUBE 
3901 015566 00001 oBITO3,aBE1CR2 
3902 015574 005037 PSW 
6003, @BE1CR1 
07777,R1 


R1,1$ 
@BE1CR2 
es 


INITIALIZE THE UBE 

INHIBIT SACK ad 

LOWER PRIORITY 

GIVE UP a. RW. AFTER BECOMING MASTER 


NO NO SACK TIMEOUT 
CLEAR INHIBIT SACK BIT 
RESTORE PRIORITY 


+32 
000000 164330 : 00 ,@BE1CR2 
3910 015632 012737 177776 0340,PSW 
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TEST - NO INTERRUPT TEST 


3935 015676 
3936 015704 
3937 015710 
3938 015712 
3939 015720 
3940 015726 
3941 015730 
3942 015732 
3943 

3944 015734 
3945 015736 
3946 
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002450 
177777 


001160 
015734 
000003 
002021 
164246 


000340 
001160 


177776 
164222 


F8 


SEQ 0096 


-SBTTL TEST - NO INTERRUPT TEST 
3* THIS TEST CHECKS THAT NO INTERRUPT CONDITION DOES NOT HANG THE BUS. 


3% 


BGNTST 


PROGRAM UBE TO DO DMA ON 6R7 
IF CYCLE NOT DONE OR 
. ERROR IN NO INTERRUPT LOGIC 
ENDIF 


INTERRUPT THEN 


FF SSESSSHESSEHSSSESEEHESSESHEESSESESESEESESEHEEESSSEESESESESESEEESESEEESD 


s*TEST 46 
FS FSSSHSSSASHEESHEEESEEESESESEESESESESESEESEESEEESESESESESESESESESES 


TST46: 


1$: 


10$: 


SCOPE 


PASSIVE RELEA 


@$TMPO,@BE1BA 
#10$ , @BE1VEC 

03,PSW 

#2021, 8BE1CR1 
— 


$ 
#340 ,PSW 
$TMPO,@BE108 
TST47 


SE 


INITIALISE UBE 

DO 1 CYCLE 

AT ADORESS $TMPO 
POINT VECTOR 

LOWER PRIORITY TO 3 
BR7, DATI 

DONE ? 


IF NOT, WAIT 
RESTORE PRIORITY 
A OK? 


3 DAT 
ss; IF OK, EXIT TEST 

: DATI ON BR7 IS WRONG 
3; GO TO NEXT TEST 


: NO INTERRUPT LOGIC IS WRONG 


G8 
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TEST - UNIBUS DEVICE DATO CYCLE 
-SBTTL TEST - UNIBUS DEVICE DATO CYCLE 


3@ THE FOLLOWING TEST WILL SEE IF A UNIBUS DEVICE DATA OUT 
3# CAN OCCUR ON THE KTJ11-B MODULE.THE UNIBUS DATA PATH 

3@ ON THE BOARD IS ALSO TESTED OUT. 

3* 


BGNTST 


DISABLE UNIBUS MAPPING 
LET RO :* POINTER TO WRITE BUFFER 
LET R1 :* POINTER TO PATTERN TABLE 


GO 00 THE TRANSFERS 


DO FOR PATTERNS 377,7417,31463,52525, 125252 
LET BE1DB := (R1)+ sDATA IS CURRENT PATTERN 
LET BE1BA := (RO)+ sADDRESS IS CURRENT ADDRESS OF WRITE BUFFER 
LET BEICC := -1 sSET UBE FOR 1 DATA XFER 
SET UBE FOR NPR-DATO-1 XFER 
SET OFF THE TRANSFER 


ENDDO 
LET RO := POINTER TO WRITE BUFFER 
LET R1 := POINTER TO PATTERN TABLE 


CHECK IF THE TRANSFERS WERE CORRECT 
DOO UNTIL TABLE IS pag 


. IF (RO)+ NEQ (R1)+ 
° io DATO DID Not OCCUR CORRECTLY 


§ SPPCOSEESESESEESSEESSEESEEEEAEEEEEEESEEESEEESEEEESESESEERESEEEES 
s¢TEST 47 UNIBUS DEVICE DATO CYCLE TEST 
fs POSSESSES ESESEESERESESEEEREESESEDESESESEDEDEREREEEREEEESE 
015740 TST47: SCOPE 


: 015742 JSR PC, IUBE s INITIALIZE THE UBE 
3 
INITIALIZE POINTERS FOR THE TRANSFERS 


172516 BIC OBITS ,MMRS 3 MAKE SURE UNIBUS MAPPING IS DISABLED 
MOV OWRTBUF RO . s; POINTER TO WRITE BUFFER 
012701 MOV OPTRN16,R1 s POINTER TO PATTERN TABLE 


3 
EXECUTE THE LOOP TO DO THE TRANSFERS 


4000 
4001 015764 012737 000002 177730 MOV #B1T01,0CSR s SELECT UNIBUS LINES 
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T4a7 UNIBUS DEVICE DATO CYCLE TEST 


4002 015772 
4003 015776 
6002 


012704 
012177 
010077 
005077 
012777 
012777 


H8 
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001734 
001774 
000005 


164132 
164130 


164122 


177732 
001126 
177730 
177730 
177730 


s SET UP LOOP COUNT 
18: MOV (R1)+,8BE108 3 . GET CURRENT DATA 
38 s . GET ADDRESS IN THE WRITE BUFFER 
CLR @BE1CR2 s . CLEAR ADDRESS BITS 16,17 
s . SET UBE FOR 1 DATA TRANSFER 
MOV 03041,96E1CR1 ; . SET UBE FOR NPR-DATO-1 XFER 


$ 
; WAIT FOR THE TRANSFER TO BE COMPLETE 
5 


S$: BIT OBIT7,@BE1CR1 ; . . IS THE TRANSFER COMPLETE ? 
BEQ S$ 3; . . NO, THEN GO WAIT FOR IT 
TST s . « UNIBUS LINES 0? 
BEQ 7$ 3; . . IF SO, BRANCH 
CMP 03,R4 3 . . SELECTING CONTROL LINES 
BNE 6$ s . . IF NOT, BRANCH 
BIT #373,D0R 3 . . ONLY USED LINES 0'S? 
BEQ 7$ ; . . IF SO, BRANC 
6$: MOV DOR, $BDDAT 3s . . RECIEVED DATA 
CLR $GODAT 3: . . EXPECTED DATA 
ERROR +16 3 . . ERROR IN UNIBUS LINES 
78; ADD #6IT01,0CSR 3 . . THRU ALL COMBINATIONS 
BIT #6,0CSR 3 . . ALL DONE? 
BNE 8s ; . . IF NOT, BRANCH 
MOV @BIT01,0CSR és OTHERWISE . ey OVER 
8$ ADD 2,RO0 3: . . GET THE NEXT ADDRESS TO TRANSFER TO 
SOB R4,1% ; . HAVE WE GONE THROUGH THE TABLE ? 


° 
3; CHECK IF THE TRANSFERS WERE COMPLETED CORRECTLY 


MOV OWRTBUF ,RO s POINTER TO WRITE BUFFER 
MOV OPTRN16,R1 s POINTER TO PATTERN TABLE 
MOV @5,R4 3 SET UP LOOP COUNT 
10$: CMP (RO)+,CR1)+ : . WAS THE TRANSFER CORRECT ? 
BEQ 15$ 3; . YES, THEN SKIP THE ERROR MESSAGE 
ERROR +32 ; . NO, THEN ERROR IN THE TRANSFER 
15%: SOB R4,108 s . HAVE WE CHECKED ALL 5 XFERS ? 


SEQ 0098 
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TEST - UNIBUS DEVICE DATI CYCLE 


) 
016170 
016174 


016176 


012777 


18 


MACRO M1200 25-JUL-84 17:10 PAGE 50 


163746 
163746 
163750 
177777 163732 
002041 163730 


-SBTTL TEST - UNIBUS DEVICE DATI CYCLE 


3@ THIS TEST WILL SEE IF THE KTJ11-B MCDULE CAN EXECUTE A 
3# UNIBUS DEVICE DATI CYCLE.THE UNIBUS ADDRESS PATH ON THE 
3# MODULE IS ALSO TESTED OUT. 


BGNTST 


INITIALIZE THE POINTERS FOR THE TRANSFERS 


DISABLE UNIBUS MAPPING 
LET RO := POINTER TO 16 BIT PATTERNS 
LET R1 := CRO) sCURRENT PATTERN 


GO DO THE TRANSFER THEN CHECK IF IT OCCURED CORRECTLY 


LET BE1DB := 0 sCLEAR DATA BUFFER 
LET BE1BA := RO sREAD FROM DATA PATTERN 
LET BEICC := -1 31 DATA XFER 

TO 00 — DATA XFER 


THEN 
aa DATA READ IN WAS INCORRECT 


fF PPREEERESEEEEEEESEESEEEESEEESERESSEEESEEESEEESEESRESERESEEESEEES 
s*TEST SO UNIBUS DEVICE DATI CYCLE TEST 
FS EPOEEESESSESEEESEEESEEESEEESEESESEEESEEEESEEESEERESEESSEEDEEEES 


TSTSO: SCOPE 


JSR PC, IUBE s INITIALIZE THE UBE 
BIC OBITS, MMRS s DISABLE UNIBUS MAPPING 


6 
s INITIALIZE POINTERS FOR THE TRANSFERS 
3 


MOV OPTRN16,RO GET POINTER TO PATTERN TABLE 
C(RO),R1 GET CURRENT PATTERN 


TRANSFER 


BE 108 INITIALIZE THE DATA BUFFER. 
RO,@BE1BA ADD 

@BE1CRO 

#-1,8BE1CC AN 

02041, @BE1CR1 SET UBE FOR NPR-DATI-1 XFER 





J8 
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UNIBUS DEVICE DATI CYCLE TEST 


3; WAIT FOR THE TRANSFER TO COMPLETE 
3 


032777 000200 163722 10%: od nn s . . IS THE TRANSFER COMPLETE ? 


001774 


027720 163706 
001401 
104032 


s . . WAIT FOR IT TO GE COMPLETE 


; 
; CHECK THE TRANSFER 


@BE108,CRO)+ : . WAS THE TRANSFER CORRECT ? 
TsT51 33 YES, THEN GO TO THE NEXT TEST 
+32 3 . NO, THEN ERROR IN THE TRANSFER 
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SEQ 0101 
TEST - UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 


4118 .SBTTL TEST - UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 

4119 

4120 3@ THIS TEST WILL SEE IF THE KTJ11-B8 MODULE CAN EXECUTE 

4121 :@ A UNIBUS DEVICE DATO CYCLE THROUGH THE UNIBUS MAP. 

4122 3¢ 

4123 8 

4124 ; B8GNTST 

4125 3 IF ALL UNIBUS MEMORY THEN GO TO END OF PASS 

4126 ‘+ 

4127 3¢ SET UP UBE AND UNIBUS MAP REGISTERS FOR TRANSFER 

4128 3¢ 

4129 3 LET BE1BA := 0 sPOINT TO UMRO 

4130 3 LET BE10B := 125252 sDATA PATTERN IS 125252 

4131 3 LET BEICC := -8. 300 8 XFERS 

4132 F SET UBE TO DO NPR- ae 2 DATA XFERS 

4133 3 LET MAPLOO := ADDRESS OF WRITE BUFFER 

4134 3 LET MAPHOO := 

4135 3¢ 

4136 3° GO DO THE TRANSFER 

4137 3% 

4138 3 SET OFF TRANSFER 

es : WAIT TILL XFER IS DONE 

1 3¢ 
Shas 3% CHECK IF THE TRANSFER OCCURED CORRECTLY 
14 3¢ 

4143 3 LET RO := ee TO WRITE BUFFER 

4144 F DO FOR R1 :* 170 8 

4145 3 + (RO)+ NEQ #125252 T 

4146 3 - « ERROR DATO DID NOT EXECUTE CORRECTLY 

4147 3 . ENDIF 

4148 3 ENDDO 

4149 : 

4150 s ENDTST 

4151 3 

4152 Bre rr ee re ee ew ee en nen ee eee nee w eee ence eeneees 

4153 

4154 § SPORES OEESEEEESSEEEEEEESEEEESESEEEEESEEEEEEESEEEEEEEEEEEEEEEEEDS 
s*TEST 51 UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 
f EPORSEEESEEEEEESEEESESSEEEEESESEEEESESEEEEEESEEEEEEESESEEEEEEEES 

ares 016246 000004 TSTS1: SCOPE 

4156 016250 013701 177734 MOV KMCR ,R1 3: STORE KMCR 

4157 016254 042701 177700 BIC #177700,R1 3; LEAVE ONLY BITS <5-0> 

4158 016260 022701 000077 CMP $77,R1 3 ALL UNIBUS MEMORY? 

4159 016264 001002 BNE i$ : IF NOT, BRANCH 

4160 016266 000137 022502 JMP sEOP 3; IF ALL UNIBUS, SKIP TILL END OF PASS 

aics 016272 004737 002450 1%: JSR PC, IUBE : INITIALIZE THE UBE 

4163 ; 

rod ; SET UP UBE AND UNIBUS MAP REGISTERS FOR TRANSFER 
3 

4166 

4167 016276 005077 163652 CLR SBE1BA ; POINT UBE ADDRESS TO UNIBUS MAP 

4168 016302 005077 163654 CLR aBE1CR2 3; REGISTER #0 

4169 016306 012777 125252 163634 MOV #125252,88E10B ; DATA PATTERN IS 125252 

4170 016314 012777 177770 163630 MOV #-8. ,@BE1CC ; DO 8. TRANSFERS 

4171 016322 012737 001734 170200 MOV OWRTBUF ,.MAPLOO ; SET UP LOW MAP REGISTER 


L8 
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SEQ 01 

TS1 UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED ne 

4172 016330 005037 170202 CLR MAPHOO s SET UP HIGH MAP REGISTER 

4173 016334 052737 000040 172516 BIS OBITS ,MMRS s ENABLE UNIBUS MAPPING 

4174 

4175 i 

4176 ; GO 00 THE TRANSFER 

4178 

1 
4179 016342 012777 003041 163606 MOV 03041,98E1CR1 ; DO A NPR-DATO-1 XFER 


163600 10%: BIT OBIT7,@B8E1CR1 ; IS THE TRANSFER COMPLETE ? 
BEQ 10% 3; WAIT FOR IT TO COMPLETE 


; 
; CHECK IF THE TRANSFER OCCURED CORRECTLY 


172516 BIC @B1TS,MMRS s DISABLE UNIBUS MAPPING 
MOV OWRTBUF ,RO 3; GET POINTER TO WRITE BUFFER 
MOV 6. ,R1 s SET UP LOOP COUNTER 
15$: CMP (RO)+,@125252 ; . SEE IF TRANSFER OCCURED CORRECTLY ? 
BEG 20% ; . YES,THEN SKIP ERROR MESSAGE 
ERROR +32 ; . NO,THEN ERROR IN TRAN 
3 


SFER 
20%: SOB R1,15$ | HAVE WE CHECKED ALL THE TRANSFERS 
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TEST - UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 
-SBTTL TEST - UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 
3# THIS TEST WILL SEE IF THE KTJ11-B MODULE CAN EXECUTE 
3# A UNIBUS DEVICE DATI CYCLE THROUGH THE UNIBUS MAP WITH 
3# CACHE DISABLED. 
3% 


; 
; BGNTST 


SEQ 0103 


SET UP THE UBE FOR A DATI CYCLE 
LET BE1BA := 0 — ADDRESS TO MAPX0O 
LET BEICR2 := 0 
sINITIALIZE 0 a BUFFER 
-1 sSET FOR 1 
T UBE FOR A NPR-DATI-1 XFER 
UP THE MAP REGISTER FOR THE TRANSFER 
LET MAPLOO := RO sPOINT UMR #0 TO DATA PATTERN 
LET MAPHOO := 
ENABLE UNIBUS MAPPING 
GO DO THE TRANSFER 
SET OFF THE TRANSFER 
WAIT FOR TRANSFER TO COMPLETE 
DISABLE UNIBUS MAPPING 
CHECK IF THE TRANSFER OCCURED CORRECTLY 


IF BE10B NEQ (RO)+ THEN 
TF — s DATI THROUGH UNIBUS MAP DID NOT EXECUTE CORRECTLY 


fF SSESARESSKSESEESSESSESSSESEESESESEESESSESSESESSESESESESESESESESESESE 


3#TEST S2 UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 
SPEER EEEEEEEEEEEEEREDEEEEEESEEEEEEESES O406664660006606000080808 
Sc 


TsTS2 
JSR PC, IUBE : INTTIALIZE THE UBE 


é 
; SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 
° 


2 

4246 016416 163532 E18 POINT UBE TO THE FIRST UNIBUS MAP 
4247 016422 163534 REGISTER 

4248 016426 163516 INITIALIZE THE DATA BUFFER 

4249 016432 177777 163512 SET FOR 1 TRANSFER 

4250 016440 012737 001774 170200 oPTRN16 ,MAPLOO POINT MAP REGISTERS TO PATTERN TABLE 
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UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 


4269 016514 
4270 
4271 
4272 


005037 170202 
052737 000040 172516 


012777 


027727 
001401 
104032 


CLR 
BIS 


MAPHOO 
BITS ,MMRS 


; 
; GO DO THE TRANSFER 


$2041, 8BE1CR1 
@BIT7,@BE1CR1 


S$ 
#BITS ,QeMMRS 


; CHECK THE TRANSFER 


CMP 
BEQ 
ERROR 


@BE10B8 , #377 
TSTS3 
+32 


$ 
: ENABLE UNIBUS MAPPING 


s SET UBE FOR NPR-DATI-1 XFER 
IS THE TRANSFER COMPLETE 
NO, THEN WAIT FOR IT TO BE COMPLETE 
YES, THEN DISABLE UNIBUS MAPPING 


; DID THE Lge + HAPPEN CORRECTLY ? 
8 GO TO THE NEXT TEST 
3 TRANSFER DID NOT OCCUR CORRECTLY 
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TEST - ALU TEST USING UBE 
-SBTTL TEST - ALU TEST USING UBE 


3@ THIS TEST WILL CHECK THE FIRST 3 ALU’S EACH ONE AT A TIME. AT FIRST THE 
3 PATTERN THAT DOES NOT RESULT IN OVERFLOW WILL BE USED, THE SECOND PATTERN 
3@ GENERATES OVERFLOW INTO THE NEXT ALU. 


BGNTST 


IN 18-BIT MODE DON’T RUN THIS TEST 

LET R1 :* 1001 (PATTERN WITHOUT OVERFLOW FROM ALU) 
LET R2 - 0101 (MAP REGISTER PATTERN) 

LET R3 :* @MAPLOO 

LET R4 - cae COVERFLOW) 


— ADDRESS TO MAPX0O 
sINITIALIZE 0 a BUFFER 
sSET FOR 1 
SET UBE FOR A NPR-DATI-1 XFER 
THE MAP REGISTER FOR THE TRANSFER WITHOUT OVERFLOW FROM ALU 
LET (R3) := R2 sPOINT UMR @0 TO DATA PATTERN 
LET 2(R3) :* 0 
ENABLE UNIBUS MAPPING 
GO 00 THE TRANSFER 
SET OFF THE TRANSFER 
WAIT FOR TRANSFER TO COMPLETE 
DISABLE UNIBUS MAPPING 
IF THE TRANSFER OCCURED CORRECTLY 
IF = ~; B (R1+R2) THEN 
bate RROR DATI THROUGH UNIBUS MAP DID NOT EXECUTE CORRECTLY 
* 
NOW CHECK CARRY OUT FROM ALU 
- LET BE1BA ;:= R4 ‘tes ADDRESS TO MAPXOO 


BEICR2 := 0 
E sINITIALIZE oa BUFFER 
3SET FOR 1 


oo oe 
ee 


1 
UBE FOR A NPR-DATI-1 XFER 
MAP REGISTER FOR THE TRANSFER 
(R3) :* RS sPOINT UMR #0 TO DAT’ PATTERN 
2(R3) :* 0 
ENABLE UNIBUS MAPPING 
GO 00 THE TRANSFER 


SET OFF THE TRANSFER 
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TEST - ALU TEST USING UBE 


016516 


16564 
016570 
016574 

6600 


005063 
052737 


012777 
032777 
001774 
042737 


. WAIT FOR TRANSFER TO COMPLETE 
. OISABLE UNIBUS MAPPING 


CHECK IF THE TRANSFER OCCURED CORRECTLY 


. IF 6E€108 nate (R4+RS) THEN 
: bor OR DATI THROUGH UNIBUS MAP DID NOT EXECUTE CORRECTLY 


* 
CHANGE THE PATTERN 


. SHIFT R1,R2,R4,R5 4 TIMES AND POINT TO MAPLOS AND MAPLO6 
* ees R3 TO MAPLO3 AND THEN TO MAPLO6 


fs PCSSOSEEERESEESESEEEESEEESEEEESEOEEEEESEEEEEESEEEEESERESESEESES 
s*TEST 53 ALU TEST USING UBE 
fs PROCOERESEEEEEEESESEEESEEEEEEEEHOEEESEEEEEEEEEEEEEESOEEEESEESES 
TSTS3: SCOPE 
000040 177734 @BITOS,KMCR 18 BIT MODE? 
10% IF NOT, CONTINUE 
OTHERWISE, EXIT 
FOR ERROR REPORTING 
INITIALIZE THE UBE 
INITIAL PATTERN FOR ADORESS LINES 
INITIAL PATTERN FOR MAP REGISTER 
FIRST REGISTER PAIR TO BE USED 
PATTERN FOR THE ; + thea FOR A. LINES 
PATTERN FOR MAP PAIR 
LOCATION TO SELECT REGISTER PAIR 


a 
s SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 
$ 


1$: RO,@BE1BA a+ hy TO THE PATTERN 
@8E 108 Ye THE DATA BUFFER 
177777 163334 SET FOR 1 TRANSFER 
R1,(R3) POINT MAP REGISTERS TO PATTERN 
000002 CLEAR HIGH MAP REGISTER 
000040 172516 OBITS, .MMRS ENABLE UNIBUS MAPPING 


TRANSFER 


163316 02041, @BE1CR1 SET UBE FOR NPR-DATI-1 XFER 
163310 OB1T7,@BE1CR1 IS THE TRANSFER COMPLETE 

2s NO, THEN WAIT FOR IT TO BE COMPLETE 
172516 OBITS ,QOMMRS YES, THEN DISABLE UNIBUS MAPPING 
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ALU TEST USING UBE 


SEQ 0107 


‘ 
3 CHECK THE TRANSFER 
; 


4388 

4389 016656 MO RO, $TMPO 
4390 016662 

4391 016670 

4392 016674 98E 108 ,8¢ TMPO 
4393 016702 3$ 

4394 016704 98E 108, $BDDAT 
4395 016712 8$TMPO, $GDDAT 
4396 016720 $TMPO, $BDADR 
pr ted 016726 ¢23 


FIND ADDRESS ACCESSED 
MAKE SURE THAT USING ALL 16 BITS FOR ADDRESS 


’ 

$ 

3 DID THE TRANSFER HAPPEN CORRECTLY ? 
s IF SO, BRANCH 
3 WRONG DATA 

3: EXPECTED DATA 

3s ADDRESS USED 

3 TRANSFER DID NOT OCCUR CORRECTLY 


SAME ALU FOR OVERFLOW 
++ hy TO THE PATTERN 


163220 R4,9BE1BA 
REGIS 


3 
163222 3 E 
163204 E1 s INITIALIZE THE DATA BUFFER 
177777 s SET FOR 1 TRANSFER 

s POINT MAP REGISTERS TO PATTERN 
000002 3; CLEAR HIGH MAP REGISTER 
000040 OBITS,MMRS s ENABLE UNIBUS MAPPING 


TRANSFER 


012777 02041, @BE1CR1 SET UBE FOR NPR-DATI-1 XFER 
032777 000200 : 06IT7,@BE1CR1 IS THE TRANSFER COMPLETE 

001774 ay NO, THEN WAIT FOR IT TO BE COMPLETE 
042737 OBITS, BOMMRS YES, THEN DISABLE UNIBUS MAPPING 


TRANSFER 


21 
4422 017012 001160 0 FIND ADDRESS ACCESSED 
4423 017016 160000 001160 MAKE SURE THAT USING ALL 16 BITS FOR ADDRESS 
4426 017024 001160 ADO TMPO 
163114 162122 DID THE TRANSFER Hi PPEN CORRECTLY ? 
IF SO, BRANCH 


S$ ° 
163104 001126 98E 108, $8DDAT WRONG DATA 
162106 001124 @$TMPO, $GDDAT EXPECTED DATA 
001160 001122 $TMPO, $BDADR ADDRESS USED 
+23 TRANSFER DID NOT OCCUR CORRECTLY 


CHANGE THE PATTERN 


34 017064 $: #2000 ,PMIS s MORE THAN 32% GF PMI MEMORY? 

4435 017072 TSTS4 33_TF NOT, EXIT TEST 

4436 017074 s TO GET TO NEXT ALU 

4437 017:00 3 BY SHIFYING 4 TIMES 

4438 017104 “ a4 $ 

4439 017110 000004 i 

4440 017114 3; GET NEXT REGISTER PAIR 

4441 017120 060000 001162 06 3 
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TS3 ALU TEST USING UBE 


4442 017126 
4443 017132 
4444 017136 
4445 017144 
4446 017146 


053709 001162 
053704 001162 
022737 020000 001162 
001213 
208: 
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$TMP1,RO 


SET TO SELECT NEXT REGISTER PAIR 


ALL 3 ALU’S DONE? 
IF NOT, BRANCH 


SEQ 0108 
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TEST - CARRY PROPOGATION TEST USING UBE 
-SBTTL TEST - CARRY PROPOGATION TEST USING UBE 


3@ THIS TEST VALIDATES THAT CARRY CAN BE PROPOGATED THRU ALL ALU’S CORRECTLY. 
3@ THE RESULT IS OBTAINED FROM LOCATION O. 


; 
: BGNTST 


SET UP THE UBE FOR A DATI CYCLE 
LET 900 := 052525 
LET BEIBA := 02 
LET BELCR2 :* 0 
LET BE10B8 := o bINITIALIZE DATA BUFFER 
LET BEICC : FOR 1 XFER 
SET UBE FOR A “fer-DATI- 1 XFER 
UP THE MAP REGISTER FOR THE TRANSFER 
LET MAPLOO := 0177777 ;POINT UMR #0 TO DATA PATTERN 
LET MAPHOO := 077 
ENABLE UNIBUS MAPPING 
GO DO THE TRANSFER 
SET OFF THE TRANSFER 
WAIT FOR TRANSFER TO COMPLETE 
DISABLE UNIBUS MAPPING 
CHECK IF THE TRANSFER OCCURED CORRECTLY 


IF BE10B NEQ 800 (52525) THEN 
Wh DATI THROUGH UNIBUS MAP DID NOT EXECUTE CORRECTLY 


3 

§ SPEER ESESESEEESEEESEEESEEESEEEESEEEEEEESEEEEESEESEEEEDEEEEEESS 

s*¢TEST 54 CARRY PROPOGATION TEST USING UBE 

ff SPSESOESSEEEEEEEEEEEEEESESEEEHEEESESESERESEESSESEEEEESEEEEEEEES 
. 017146 TSTS4: SCOPE 


4& 
4486 017150 CLR KIPAR6 3; CLEAR FOR ERROR REPORTS 
peso 017154 JSR PC, IUBE 3 INITIALIZE THE UBE 


3 
3; SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 
o 


4495 017160 000000 #52525 ,800 TEST LOCATION 

4496 017166 000002 162760 02,8BE1BA POINT UBE TO THE FIRST UNIBUS MAP 
4497 017174 @BE1LCR2 REGISTER 

4498 017200 = 108 INITIALIZE THE DATA BUFFER 

4499 017204 162740 1,8BE1CC SET FOR 1 TRANSFER 

4500 017212 170200 e177777, MAPLOO POINT MAP REGISTERS TO OVERFLOW 
4501 017220 012737 170202 077, MAPHOO 





G9 


KTJ11-B8 DIAGNOSTIC MACRO M1200 25-JUL-84 17:10 PAGE 54-1 
TS4 CARRY PROPOGATION TEST USING UBE 


4502 017226 
4503 


4516 

4517 017260 
4518 017266 
4519 017270 


4522 017310 
4523 


052737 000040 172516 OBITS ,MMRS 
TRANSFER 
012777 MOV #2041 ,8BE1CR1 
000200 


> yelling: 
OBITS, AOMMRS 


TRANSFER 


88E 108, 052525 
TsTS 


sTs5 
8BE 108, $BDDAT 
€52525, $GDDAT 
$BDADR 
+23 


ENABLE UNIBUS MAPPING 


SET UBE FOR NPR-DATI-1 XFER 

IS THE TRANSFER COMPLETE 

NO, THEN WAIT FOR IT TO BE COMPLETE 
YES, THEN DISABLE UNIBUS MAPPING 


; OJD THE TRANSFER HAPPEN CORRECTLY ? 
ss GO TO re NEXT TEST 

3 WRONG DAT 

3 EXPECTED DATA 

3s ADDRESS USED 

3s TRANSFER DID NOT OCCUR CORRECTLY 


SEQ 0110 
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TEST - NXM TEST USING UBE 


SEQ 0111 


-SBTTL TEST - NXM TEST USING UBE 
3# THIS TEST CHECKS THAT ACCESSING NXM MEMORY CAN BE DONE CORRECTLY THRU 
3# UBE. TEST LOCATION USED IS 17760000. 


SET UP THE UBE FOR A DATI CYCLE 
LET BE1BA := 0 — ADDRESS TO MAPX0O 
sINITIALIZE ob BUFFER 
1 sSET FOR 1 
T UBE FOR A NPR-DATI-1 XFER 
UP THE MAP REGISTER FOR THE TRANSFER 
LET MAPLOO :* #160000 sPOINT UMR #0 TO DATA PATTERN 
LET MAPHOO := 077 
ENABLE UNIBUS MAPPING 
GO DO THE TRANSFER 
SET OFF THE TRANSFER 


CHECK IF THE TRANSFER OCCURED CORRECTLY 


IF @BITO8 NOTSET IN SBE1CR2 THEN 
TM DATI TO NXM IS WRONG 


fF POSSESSES EESESRESEEEESEESEESEESEEESEEEESESEEEDSEEEESEEEEEEEEEEE 
s*TEST SS NXM TEST USING UBE WITH RELOCATION ENABLED 
fs PSSSSOSEEAESESESSEEEESESSEESEESEEEEESEESEEEEEDEEDESEEESEEEEERES 
017312 000004 TSTSS: SCOPE 
rit 017314 JSR PC, IUBE s INITIALIZE THE UBE 


‘ 
3; SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 
° 
4566 017320 012777 162636 010% ,@BE1VEC POINT INTERUPT VECTOR 
4567 017326 340 162632 0340, 8BE1PSW 
005077 ae. UBE TO THE FIRST UNIBUS MAP 


4568 017334 
4569 017340 

INITIALIZE THE DATA BUFFER 
SET FOR 1 TRANSFE 


4570 017344 62600 88E 108 
4571 017350 162574 @-1,9BE1CC R 

POINT MAP REGISTERS TO NXM 17760000 
ENABLE UNIBUS MAPPING 


4572 017356 60000 170200 #160000 , MAPLOO 
4573 017364 170202 077 ,MAPHOO 
os 017372 172516 OBITS ,MMRS 


° 
pe da TRANSFER 
4 
4578 017400 012777 162550 #2041 ,@BE1CR1 SET UBE FOR NPR-DATI-1 XFER 
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NXM TEST USING UBE WITH RELOCATION ENABLED 
4579 017406 000200 162542 5%: ——— IS THE TRANSFER COMPLETE 
162536 oBIT08 ,ABE1CR2 
BNE 6$ 


SEQ 0112 
as WAIT FOR IT TO BE COMPLETE 


ALLOW INTERRUPTS 


NXM WITHOUT INTERRUPT 
RESTORE PRIORITY 

; 

3; CHECK THE TRANSFER 


é 
10$: ADD 64 ,SP s ADJUST STACK 
172516 12$: BIC OBITS, SOMMRS YES, THEN DISABLE UNIBUS MAPPING 
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TEST - RELOCATION WITH UNIBUS MEMORY 


017564 
017570 


000004 
013737 


JY 
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000040 
170240 


000001 
002450 


001162 
001160 
001160 
177730 


177734 
177730 


172516 


SEQ 0113 


-SBTTL TEST - RELOCATION WITH UNIBUS MEMORY 


3@ THIS TEST WILL CHECK THAT MAPPING REGISTER PAIRS THAT ARE 
3# ASSOCIATED WITH UNIBUS MEMORY DO NOT PERFORM RELOCATION. 

3¢ IF ANY UNIBUS MEMORY PRESENT, DATI CYCLES TO THAT MEMORY 

3# WILL BE CHECKED. 

3% 


BGNTST 


DO FOR KMCR = 067,27 (18-BIT AND 22-BIT MODES, 32K OF PMI MEMORY) 
DO WITH MAPPING PAIRS 10 TO 36 

- DO DATI 10 0 i SELCTED MAPPING PAIR 

. IF NO TIMEOUT 

° re DISABLED REGISTER PAIRS DO RELOCATION 


ENODO 
IF ANY UNIBUS MEMORY PRESENT THEN 
- DO DATI WITH RELOCATION ENABLED 
IF RELOCATED THEN 
ERROR 


FE EPRESAESEEESSEESEEESEESEERESEEEESEEESSEESSEEESESEESEEESEEESEEEEES 
s*TEST 56 RELOCATION WITH UNIBUS MEMORY 
f PPRESEESERESEEESESEEEEEEEEESEEEEEESESEEEESEEESEEEEEEREEEEESEDESS 


TSTS6: SCOPE 


KMCR, $TMP1 
KMCR ,R1 
ya lg gs 


STORE KMCR 

STORE KMCR 

LEAVE ONLY <4-0> 

START WITH HIGHEST ADDRESS 


ANCH 
GET LOWER REGISTER PAIR 
R1,100$ LEAVE IN $TMPO HIGHEST AVAILABLE PAIR 
#81108 ,DCSR 
067, KMCR 
81708, DCSR DISABLE DIAGN. MODE 


REGISTERS FOR INITIAL CONDITIONS 


#BITS,MMRS ; ENABLE UNIBUS MAPPING 
@MAPL10,R1 3; . POINT TO MAPL10 

R2 3; . ADDRESS BITS <15-0> REG. 10 
#1,R3 3 . ADORESS FOR CR2<17-16> 

PC, IUBE s . . INITIALIZE THE UBE 


3 
; SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 
3 





KTJ11-8 DIAGNOSTIC 


TS6 


017770 
2 


94 
017772 
96 0. 


010277 
005077 


6050. 
012777 
012777 


012777 


00 
023701 
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RELOCATION WITH UNIBUS MEMORY 


162334 
177777 


017714 
000340 


002041 
000200 


000400 


140000 


162330 


162330 
162324 


162306 
162300 


162274 


177734 
177730 


177734 
177730 


001160 


162144 
162144 


000000 
162110 


162066 


MOV R2, SSE1BA 
CLR aBE1CR2 
MOV R3,a8BE1CR2 
CiLR 88E 108 
MOV @-1,9BE1CC 
CLR R1)+ 
CLR CR1)-« 
MOV #10$ , @BE1VEC 
MOV 0340 , @BE1LPSW 
: GO 00 THE TRANSFER 
° 
MOV $2041,a8BE1CR1 
S$: BIT @BIT7,3BE1CR1 
BEQ S$ 
BIT oBITO8 ,aBE1CR2 
BNE 6$ 
ERROR +22 
BR 11% 
6$: MTPS #140 
ERROR +22 
MTPS 9340 
BR 11% 
10$: ADD 64 e SP 
11: ADD #20000 ,R2 
BCC 12$ 
INC R3 
12$: CMP $TMPO,R1 
BHI > 
3 CHECK IF DONE 
3 
BIT @BITOS,.KMCR 
BEQ 13% 
BIS @B1T08 ,.OCSR 
MOV $27,KMCR 
BIC eBIT08., OCSR 
BR 
3 
3; IF ANY UNIBUS MEMORY PRESENT, 
é 
13%: CMP @MAPL37, $TMPO 
BEQ 200% 
MOV #140000 , 8BE1BA 
MOV 03, 8BE1CR2 
CLR MAPL 36 
CLR MAPH36 
MOV #123456 800 
CLR 86E 108 
MOV 02071,8BE1CR1 
20%: TSTB @BE1CR1 
BPL 20% 
CMP #123456 , 8BE 108 
BNE 200% 


POINT = TO FIRST MAP REGISTER 


REGISTE 


LOAD ADDRESS <17-16> 
INITIALIZE THE DATA BUFFER 
SET RANSFER 


FOR 1 T 


CLEAR LOW MAP —— 


AND HIGH MAP T 


LOAD INTERRUPT VECTOR 


SET UBE FOR NPR-DATI-1 
IS THE TRANSFER COMPLETE 
NO, THEN WAIT FOR IT TO BE COMPLETE 


LOWER PRIORITY 


WAIT FOR INTERRUPT 
INTERRUPT ON NXM 


NO 
RAISE PRIORITY 
ADJUST STACK 


ay NEXT MAP PAIR REGISTER 


F NO CARRY, 


BRANCH 
OTHERUTSE INCREMENT ADDRESS <17-16> 
ALL DONE? 
IF LESS THAN, BRANCH 


WITH 22-BIT MODE AND 18-BIT 


22-BIT MODE DONE? 

IF YES, BRANCH TO EXIT 

ENABLE DIAGN. MODE 
MODE 

D0 AGAIN IN 22-BIT MODE 


DO RELOCATION THRU IT 


ANY ag ot: MEMORY ? 
IF NO, 


EXIT 
TRY TO 00 DATI THRU 
THRU MAP 36 REGISTER 
CLEAR MAPPING REGISTER 


PAIR ' 
SET UP PATTERN AT O 
CLEAR DATA REGISTER 


START DATI 
WAIT TILL 


DONE 
DATA CAME FROM 800? 


IF NOT, BRANCH 


SEQ 0114 
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RELOCATION WITH UNIBUS MEMORY 


SEQ 0115 


RELOCATED UNIBUS MEMORY 
000400 177730 200%: ENABLE DIAGN. MODE 


3 . 
4710 020074 001162 177734 RESTORE KMCR 
4711 020102 042737 000400 177730 DISABLE DIAGN. MODE 
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MAIN MEMORY DISABLE THRU UBE 


4763 020244 
4764 020250 
4765 020254 
4766 020262 


012777 
012777 
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001720 


177572 
172516 


177572 


161670 
161666 


-SBTTL MAIN MEMORY DISAFLE THRU UBE 
3% — TEST CHECKS THAT A MAIN MEMORY RESPONSE IS DISABLED WHENEVER 


;* THE APPROPRIATE BITS IN 


SET. THE FIRST 32K ARE NOT GOING 


ARE 
3% 10 BE CHECKED. THE OMA DATI CYCLES WILL BE DONE THAT SHOULD CAUSE 
3# NXM BIT TO BE SET IN THE UBE REGISTER. 


BGNTST 


FOR ALL MEMORY 


. IF NO TIMEOUT THEN 


SIZE THE MEMORY AVAILABLE 
dO PAGE 


S 
. LET KMCR DISABLE THAT PAGE IN MEMORY 
- 00 DATI TO THAT LOCATION 


Loo DISABLED MEMORY DOES NOT TIMEOUT 


FS SSSSESESSSSSSSESSKSESESESSESSSEESSESSESERESESESESESESSESERAEESESLECESESES 


MAIN MEMORY DISABLE THRU UBE 


FF SSSSSASEESSESESESSESHESEAEHESESSSESEESEESEASESESSESESESEEEEESEESEEE 


s#TEST 57 
TSTS?7: 

Bea —‘TST60 
ENABLE MMU AND SIZE MEMORY 


PC ,MAPPR ; 

BIS @BITOO,MMRO : 
BIS @BIT04 ,MMRS 3 
3 

: 


PMIS,R2 
BIC @BITOO,MMRO 


Y PMI MEMORY? 


3 ANY 
33 IF NONE, EXIT TEST 


REMAP PROGRAM AREA 


ENABLE MMU 
ENABLE 22-BIT MODE 
STORE HIGHEST PAGE 
DISABLE MMU 


3 
3 SETUP MAPPING REGISTERS AND KMCR 


BIS #BITS, DOMMRS 
MOV KMCR , $TMPO 
BIS #BIT08,OCSR 


MOV 967 ,KMCR 
BIC #BITO8 ,OCSR 
CLR MAPLOO 

MOV 


#1,MAPHOO 
MOV #20$ , @BE1LVEC 
MOV #340, 8BE1PSW 
MOV #2000 , KIPAR6 


3 
10$: JSR 


PC, IUBE F 
CLR - @BE1BA ; 
MOV #-1,@BE1CC ’ 
MOV #2041,8BE1CR1 ; 


ENABLE UNIBUS MAPPING 


SAVE KMCR 

ENABL AGNOSTIC MODE 
18-BIT, >32K DISABLED 
DISABLE DIAGNOSTIC MODE 
CLEAR LOW MAP REGISTER 
POINT TO 32K 

. LOAD INTERRUPT VECTOR 


INITIAL POINTER TO ABOVE 32K 


INTIALISE UBE 
. og TO ACCESS THRU MAP 0 


ONE CYCL 
. SET UBE FOR NPR-DATI-1 XFER 


SEQ 0116 


N9 
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TS7 MAIN MEMORY DISABLE THRU UBE 
4767 020270 000200 161660 14%: ee 
000400 161654 . > * etme 


SEQ 0117 
IS THE TRANSFER COMPLETE 
NO, THEN _— FOR IT TO BE COMPLETE 
NXM SET? 
IF ah BRANCH 
NO NXM 
LOWER PRIORITY 
WAIT FOR INTERRUPT 


- NO INTERRUPT ON NXM 
RAISE PRIORITY 


BR BRANCH 
208: ADD . ADJUST STACK 
; CHANGE PAGE ACCESSED AND CHECK END CONDITIONS 
358: CMP KIPAR6 ,R2 L PAGES DONE 


30$ 
#4000 , MAPLOO 
26$ 


MAPHOO 
#17777 ,MAPLOO 


27$ T, H 
#200 , KIPAR6 INCREMENT COUNTER 
MCR . ACCESS NEXT HIGHER LOCATION 
@BITOS,KMCR DONE? 


30% 
#BIT08 ,OCSR 


10$ 

@BITOS ,MMRS 
#61108 ,0CSR 
$TMPO,KMCR 
#BIT08 ,OCSR 


DISABLE MAPPING 
ENABLE DIAG. MODE 
RESTORE KMCR 
DISABLE DIAG. MODE 


; 
3 
2 
: 
i 
i 
: 
‘ 
Sa aceeae 3 . ENABLE DIAG. 
; 
; 
; 
; 
; 
; 
; 
. 
: 
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TEST - UNIBUS DEVICE DATOB CYCLE 


020462 


020464 
020470 
020474 
020476 


020504 
020512 


000004 


004737 
012701 
005011 
012777 
012777 
010177 


012777 
032777 
001774 


021127 
001401 
104033 
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002450 
001734 


077777 
177777 
161436 


003441 
000200 


161444 
161440 


161432 
161424 


SEQ 0118 


-SBTTL TEST - UNIBUS DEVICE DATOB CYCLE 
3@ THIS TEST WILL SEE IF THE KTJ11-B MODULE CAN EXECUTE 


3:¢ A UNIBUS DEVICE DATOB . 


BGNTST 


SET UP UBE FOR A DATOB CYCLE 


R1 :* ADDRESS OF THE 
CR1) :* O 

BE108 := 77777 
BEICC :2= -1 

BE1BA := RL 


WRITE BUFFER 
sCLEAR OUT THE LOCATION 
sDATA PATTERN MA ha 
sSET FOR 1 DATA 
sADORESS IS FIRST. LOCATION IN WRITE BUFFER 


UBE FOR te a -1 XFER 


OFF THE T 


SE ANSFE 
WAIT FOR THE TRANSFER TO COMPLETE 
CHECK IF THE TRANSFER OCCURED CORRECTLY 


IF ae 2 NEQ 0377 THEN 


; RROR TRANSFER DID NOT EXECUTE CORRECTLY 


FF SSSSSSSSESSESSSSSESSESEHSESESSEEHESSEEESSESHESSESSEEESESESEESEESESESEEEEESD 


s¢TEST 60 UNIBUS DEVICE DATOB CYCLE TEST 
fs OCOCROSEEOSEEESEESEOEESEESEEEEESEESESEESEESESORESESEEEEESEEESEES 


TST60: 


PC, IUBE 
OWRTBUF ,R1 
(R1) 


077777 ,@BE108 
@-1,8BE1CC 
R1,9BE1BA 


; DO THE TRANSFER 
MOV 03441 ,aBE1CR1 


58: BIT oBIT7,@BE1CR1 
BEQ S$ 


; 
s CHECK THE TRANSFER 
3 


CMP (R1),0377 
BEQ TST61 
ERROR +33 


INITIALIZE THE UBE 

GET POINTER TO WRITE BUFFER 
CLEAR OUT THE LOCATION 

SET DATA BUFFER UP 

SET FOR 1 DATA TRANSFER 

POINT UBE XFER TO WRITE BUFFER 


SET UP UBE FOR NPR-DATOB-1 XFER 
IS THE TRANSFER COMPLETE ? 
NO, THEN WAIT FOR IT TO COMPLETE 


s WAS THE TRANSFER ge sD ? 
s3_ YES GO TO THE NEXT TEST 
s ERROR TRANSFER WAS INCORRECT 
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SEQ 0119 
TEST - UNIBUS DEVICE DATIP CYCLE 


-SBTTL TEST - UNIBUS DEVICE DATIP CYCLE 


3@ THIS TEST WILL SEE IF THE KTJ11-B MODULE CAN EXECUTE 
3* A UNIBUS DEVICE DATIP CYCLE. 
3¢ 


BGNTST 
INITIALIZE WRITE BUFFER FOR DATIP CYCLE 


LET R1 :* POINTER TO WRITE BUFFER 
00 FOR R2 :* 1 TO 8 

LET (R1L)> :* 52525 
NOOO 


UP UBE TO DO 8 DATIP’S TO WRITE BUFFER 


LET BE1BA :* ADDRESS OF WRITE BUFFER 

LET BEICC := -8. sSET FOR 8 TRANSFERS 
SET UBE FOR NPR-DATIP-1 XFER 

SET OFF THE TRANSFER 

WAIT FOR TRANSFER TO BE COMPLETE 


CHECK IF DATIP WAS EXECUTED CORRECTLY 
LET R1 :* ADDRESS ¢ WRITE BUFFER 


DO FOR R2 := 1 108 
IF (R1)+ NEQ 1252 


S2 THEN 
° hes OR TRANSFER DID NOT EXECUTE CORRECTLY 


FF SSSSSSSSSSESESSSSSSESHSSSSHESESESSSOSSESESES OHSS SSESESSSHESSEHESESESSE 


seTEST 61 UNIBUS DEVICE DATIP CYCLE TEST 
§ OPOEOSEEOSEESEESESESEOESEREEEEEEESEOSSSEESEEESOEOESEEESEEEEEESS 


TST61: SCOPE 
JSR PC, IUBE s INITIALIZE THE UBE 


é 
s INITIALIZE WRITE BUFFER FOR DATIP CYCLE 
‘ 


012701 OWRTBUF ,R1 2 
012702 1 08. ,R2 : 
012721 052525 S$: 52525,(R1)+ 4 
077203 R2,5$ 5 


2 POINTER TO a boy BUFFER 
SET UP LOOP COUNTE 
. INITIALIZE WRITE RBUFFER LOCATION 
. HAVE WE DONE IT 8 TIMES ? 
$ 
s SET UP UBE TO 8 DATIP’S TO WRITE BUFFER 
4908 
4909 020570 012777 001734 161356 MOV OWRTBUF ,ABE1BA ; SET UP UBE TO WRITE BUFFER 
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SEQ 0 

161 _—* UNIBUS DEVICE DATIP CYCLE TEST 120 

4910 020576 005077 161360 CLR —s @BEICR2 : 

4911 020602 012777 177770 161342 MOV -—=«-@-8. .@BEICC ; SET UP FOR 8 TRANSFERS 

4912 020610 012777 002441 161340 MOV «02441, BE1CR1 4; SET UP UBE FOR NPR-DATIP-1 XFER 

49r8 OD061€ 032777 000200 161332 10$: BIT @BIT7.8BE1CR1 ; IS THE TRANSFER COMPLETE ? 

4914 020624 001774 BEQ —s- 108 ' NO. THEN WAIT FOR IT TO BE COMPLETE 

491 

4916 3 

4917 } CHECK IF DATIP WAS EXECUTED CORRECTLY 

ani? 

4920 020626 012701 001734 MOVs @WRTBUF ,R1 ; GET POINTER TO WRITE BUFFER 

4921 020632 012702 000010 MOVs: @8.. , R2 ; SET UP LOOP COUNTER 

4922 020636 022127 125252 15$: CMP  (Ri}+,0125252 ; . WAS THE TRANSFER CORRECT ? 

4923 020642 001401 BEQ  —«-208 + YES. THEN GO SEE IF WE ARE DONE CHECKING 

4924 020644 104033 ERROR +33 ; | NO. THEN ERROR IN THE TRANSFER 

4925 020646 077205 20s: SOB —-R2, 158 ; * HAVE WE CHECKED ALL THE XFERS 
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SEQ 0121 
TEST - UNIBUS DEVICE I/0 PAGE READ CYCLE 
4929 .SBTTL TEST - UNIBUS DEVICE I/0 PAGE READ CYCLE 
4930 
4931 3@ THIS TEST WILL SEE IF THE KTJ11-B MODULE CAN EXECUTE 
4932 :@ A UNIBUS DEVICE I/0 PAGE READ CYCLE. THIS CONSISTS OF 
4933 3@ THREE DIFFERENT TYPES OF READS : 
4934 3¢ 
4935 34 1. UNIBUS DEVICE PMI I/O PAGE READ CYCLE 
4936 34 2. UNIBUS DEVICE BOOT ROM READ CYCLE 
4937 34 3. UNIBUS DEVICE MAP REGISTER READ CYCLE. 
4938 34 
4939 3* IT ALSO WILL CHECK THAT A UNIBUS DEVICE READ CYCLE NOT 
4940 3* OF THE ABOVE THREE TYPES SHOULD CAUSE A TIMEOUT. 
4941 3¢ 
4942 3 
4943 : ®BGNTST 
4944 3 
pies 3* DO A UNIBUS DEVICE PMI I/0 PAGE READ CYCLE 
4 3% 
4947 F} LET BE1BA := ADDRESS OF CSR OF MEMORY BOARD 
4948 3 LET BEICC := -1 sSET FOR 1 TRANSFER 
4949 3 SET UBE FOR A NPR-DATI-1 DATA XFER 
4950 3 SET OFF THE TRANSFER 
4951 F} WAIT FOR THE TRANSFER TO BE COMPLETE 
4952 8 IF BE1DB NEG CONTENTS OF MEMORY CSR THEN 
4953 3 . ERROR UNIBUS DEVICE PMI 1/0 PAGE READ CYCLE DID NOT EXECUTE CORRECTLY 
4954 3 ENDIF 
4955 ‘* 
at 3* DO A UNIBUS DEVICE BOOT ROM READ CYCLE 
3* 
4958 3 LET BE1BA := 773000 
4959 3 LET BEICC := -1 3SET FOR 1 TRANSFER 
4960 3 SET UBE FOR A NPR- — 1 DATA XFER 
4961 3 SET OFF THE TRANSFE 
4962 Fy WAIT FOR THE TRANSFER TO BE COMPLETE 
4963 3 IF BE10B8 NEQ 86173000 THEN 
4964 3 . ERROR UNIBUS DEVICE BOOT ROM READ CYCLE DID NOT EXECUTE CORRECTLY 
4965 Fy ENDIF 
4966 3% 
ted 3* DO A UNIBUS DEVICE MAP REGISTER READ CYCLE 
3% 
4969 3 LET BE1BA := 770200 sUNIBUS MAP REGISTER #0 
4970 3 LET BE1CC := -1 sSET FOR 1 TRANSFER 
4971 3 SET UBE FOR A NPR-DATI-1 DATA XFER 
4972 3 SET OFF THE TRANSFER 
4973 : WAIT FOR THE TRANSFER TO BE COMPLETE 
4974 H IF BE10B NEQ 80770200 THEN 
yt 3 = UNIBUS DEVICE MAP REGISTER READ CYCLE DID NOT EXECUTE CORRECTLY 
3 
4977 3% 
pet 4 3% DO AN ILLEGAL UNIBUS DEVICE I/O PAGE READ CYCLE 
3* 
4950 Hy LET BE1BA - 777730,777732, 777734 ;0CSR.DDR,KMCR ADDRESS 
4981 LET BE1CC := -1 31 DATA TRANSFER 


° 

a SET UBE FOR “NPR- DATI-1 DATA XFER 
4983 ; SET OFF THE TRANSFER 

3 WAIT FOR THE TRANSFER TO BE COMPLETE 

i IF TRANSFER DID NOT TIMEOUT THEN 
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027777 
001401 
104033 


012777 
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TEST - UNIBUS DEVICE 170 PAGE READ CYCLE 


161010 


161270 
161270 
161252 
161250 
161242 


161224 


161216 


161110 


SEQ 0122 


how AN ILLEGAL UNIBUS DEVICE CYCLE HAS OCCURED 


fF APREREREREEESESEEEEESESEEEESEORESERESESEEESSEESESEDEDEEEEDESEEE 
s#TEST 62 UNIBUS DEVICE I/0 PAGE READ CYCLE 
§ EPPRORORERESERESESESEEEEEESESESEEEESEEEEEEEROEEEESEEREEESEREEEES 


TST62: SCOPE 
JSR PC, IUBE INITIALIZE THE UBE 


3 
3; DO A UNIBUS DEVICE PMI I/0 PAGE CYCLE 


° 
MCSR ,@BE1BA s GET ADDRESS OF MEMORY CSR ADDRESS 
@3,@BE1CR2 3; SET THE UPPER TWO ADDRESS BITS 
3; SET FOR 1 TRANSFER 
1 3; SET UBE FOR NPR-DATI-1 XFER . 
$BIT7,8BE1CR1 ; ARE WE DONE THE TRANSFER ? 
S$ :; NO, THEN FOR WAIT FOR IT TO 


THE TRANSFER 


@MCSR ,9BE10B WAS THE TRANSFER CORRECT 
10$ YES, THEN GO DO BOOT ROM READ 
ERROR +33 NO, THEN ERROR IN READ CYCLE 


3 
; DO A UNIBUS DEVICE BOOT ROM READ CYCLE 


3 
10%: #173000, 8BE1BA GET ADDRESS OF OF THE BOOT ROM 
@BE1CR2 — BITS 


SET UBE FOR NPR-DATI-1 XFER 
ARE WE DONE THE TRANSFER ? 
NO, THEN FOR WAIT FOR IT TO 


15$: eBIT7,@BE1CR1 


; 
3 CHECK TRANSFER 


6 

#B1T07,8CSR SELECT RIGHT ROM 

80173000,98E10B8 ; WAS THE TRANSFER CORRECT 

2 YES, THEN GO DO UNIBUS DEVICE MAP REGISTER READ 
+33 NO, THEN ERROR IN READ CYCLE 


; 
; DO A UNIBUS DEVICE MAP REGISTER READ 


; 
20%: #170200, 8BE1BA GET ADDRESS OF THE MAP REGISTER 
a@BE1CR2 SET THE UPPER TWO ADDRESS BITS 
SET FOR 1 TRANSFER 
SET UBE FOR NPR-DATI-1 XFER 
25$: oBIT7,@BE1CR1 ARE WE DONE THE TRANSFER ? 
25% NO, THEN FOR WAIT FOR IT TO 


3 
3; CHECK OUT THE TRANSFER 
° 
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Té2 UNIBUS DEVICE I/O PAGE READ CYCLE 


5040 021050 023777 170200 161072 CMP 80170200,@8E10B ; WAS THE TRANSFER CORRECT 
5041 021056 1 BEQ 30$ s YES, THEN GO DO ILLEGAL UNIBUS DEVICE I/0 READ 
ERROR +33 ; NO, THEN ERROR IN READ CYCLE 


ILLEGAL UNIBUS DEVICE I/0 PAGE READ 


161074 2 #40$ ,ABE1VEC SET UP INTERRUPT VECTOR 
161070 0340, @BE1PSW 
DO FOR 3 REGISTERS 


@3,R1 
0177730,R2 STARTING WITH DCSR (THEN DOR, KMCR) 
Re, @BE1BA GET ADORESS OF THE DIAGNOSTIC REGISTER 
161042 03, 8BE1CR2 SET THE UPPER TWO ADDRESS BITS 
161024 @-1,@BE1CC SET FOR 1 TRANSFER 
161022 MO ee SET UBE FOR _ DATI-1 XFER 


LOWER PRIORITY 
161010 : + il anette 


SEQ 0123 


ARE WE DONE THE TRANSFER ? 
NO, THEN FOR WAIT FOR IT TO 
WAIT FOR INTERRUPT 


ERROR KTJ11 RESPONDED TO AN ILLEGAL ADDRESS 
RAISE PRIORITY BACK 


CLEAN UP THE STACK AND THEN GO DO NEXT TEST 
NXM SET? 

IF SET, BRANCH 

NXM NOT SET ON ILLEGAL REFERENCE 

GET ADDRESS OF NEXT REGISTER 

CLEAN UP UBE 

DO FOR ALL 3 REGISTERS 


5067 0212 
5068 021210 077142 R1, 31% 
5069 
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TEST - UNIBUS DEVICE I/0 PAGE WRITE CYCLE 
-SBTTL TEST - UNIBUS DEVICE I/0 PAGE WRITE CYCLE 
3 THIS TEST WILL SEE IF THE KTJ11-B MODULE CAN EXECUTE 
3 A UNIBUS DEVICE I/O PAGE WRITE CYCLE. THIS CONSISTS OF 
3@ TWO DIFFERENT TYPES OF WRITES : 


1. UNIBUS DEVICE PMI I/0 PAGE WRITE CYCLE 
2. UNIBUS DEVICE MAP REGISTER WRITE CYCLE. 


* 
IT ALSO WILL CHECK THAT A UNIBUS DEVICE WRITE CYCLE NOT 
OF THE ABOVE TWO TYPES SHOULD CAUSE A TIMEOUT. 


SEQ 0124 


BGNTST 


DO A UNIBUS DEVICE PMI I/0 PAGE WRITE CYCLE 


LET BE10B := 52525 

LET BE1BA := a OF CSR OF MEMORY BOARD 

LET BEICC := -1 sSET FOR 1 TRANSFER 

SET UBE FOR A NPR-DATO-1 DATA XFER 

SET OFF THE TRANSFER 

WAIT FOR THE TRANSFER TO BE TF 

IF CONTENTS OF MEMORY CSR NEQ 52525 T 

—- UNIBUS DEVICE PMI I/0 PAGE URITE CYCLE DID NOT EXECUTE CORRECTLY 
DO A UNIBUS DEVICE MAP REGISTER WRITE CYCLE 


LET BE10B := 52525 sDATA PATTERN 

LET BE1BA := _— sUNIBUS MAP REGISTER ¢0 

LET BEICC := -1 sSET FOR 1 TRANSFER 

SET UBE FOR A NPR-DATO-1 DATA XFER 

SET OFF THE TRANSFER 

WAIT FOR THE TRANSFER TO BE COMPLETE 

IF MAP REGISTER O NEQ #52525 THEN 

ie UNIBUS DEVICE MAP REGISTER READ CYCLE DID NOT EXECUTE CORRECTLY 


DO A UNIBUS DEVICE TO BOOT ROM WRITE CYCLE 


LET BE1BA := 773000 

LET BEICC := -1 ;SET FOR 1 TRANSFER 

SET UBE FOR A NPR-DATO-1 DATA XFER 

SET OFF THE TRANSFER 

WAIT FOR THE tee, TO BE COMPLETE 

IF NO TIMEOUT ; 
io UNIBUS DEVICE BOOT ROM WRITE CYCLE DID NOT EXECUTE CORRECTLY 


DO AN ILLEGAL UNIBUS DEVICE I/O PAGE WRITE CYCLE 


LET BE10B := 52525 sDATA PATTERN 

LET BE1BA ss 777730,777732, 777734 sDCSR, DDR, KMCR ADDRESSES 
LET BEICC := -1 31 DATA TRANSFER 

SET UBE FOR “NPR- DATO-1 DATA XFER 
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TEST - UNIBUS DEVICE I/0 PAGE WRITE CYCLE 


021212 
40 
ares 021214 


5144 
5145 021220 
5146 021226 


5152 021272 


5156 021274 


1362 
5171 921370 


5175 021372 


5180 021414 


000004 
004737 


017737 


023727 
001491 
104033 
022737 
001401 
104033 
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002450 


160506 
001732 
000003 


040000 
177777 
003041 
000200 


040000 


160430 


052524 


170202 


SET OFF THE TRANSFER 


A Low AN ILLEGAL UNIBUS 
DISABLE UNIBUS MAPPING 
ENDTST 


WAIT FOR THE TRANSFER TO BE — 
IF TRANSFER DID NOT TIMEOUT 


DEVICE CYCLE HAS OCCURED 


FL SSSSSHASASASSSESESESASESASEESEESEESESESEEEEESESESERESESESESEEEEESEES 


s*TEST 63 UNIBUS DEVICE I/0 


PAGE WRITE CYCLE 


2S FSSASSHSHASSSSSSSESSESESSESSESHESSSESESSEHSEESESSESESSESESESSEEESEEESEEEESEES 


TST63: SCOPE 
JSR PC, IUBE ; 
; DO A UNIBUS DEVICE PMI I/0 PAGE 
MOV QMCSR, $TMPO 


a 
— 
3 
Le | 
“~ 
~— 
2 
‘J 
a8 
am 
eo 
3 
ee ee ee Ge Ge Ge Ge Ge 


1 
S$: BIT  eleeamatatins 


3 

; CHECK THE TRANSFER 
BIT #B61T14,aMCSR 
BNE 10$ 

ERROR +33 


a 
s 00 A UNIBUS DEVICE MAP REGISTER 


8 

10$; MOV $TMPO,@MCSR : 
CLR MAPLOO H 
CLR MAPHOO H 
MOV @MAPLOO,SBE1BA ; 
MOV 03,aBE1CR2 é 
MOV #52525,a8E1068 ; 
MOV @-2,8BE1CC 3 
MOV 03041,9B8E1CR1_ ; 

15%: BIT oBIT7,@BE1CR1 ; 
BEQ 15% : 


3 

3 CHECK THE TRANSFER 

CMP MAPLOO, #52524 
16% 

ERROR +33 


16%: CMP #25 ,MAPHOO 
BEQ 17$ 
ERROR +33 


INITIALIZE THE UBE 
CYCLE 


STORE MEMORY CSR 

GET ADDRESS OF MEMORY CSR 

SET UPPER TWO ADDRESS BITS 

GET WRITE PATTERN 

SET FOR 1 XFER 

SET UBE FOR NPR-DATO-1 XFER 

IS THE TRANSFER COMPLETE ? 

NO, THEN WAIT FOR IT TO COMPLETE 


WAS THE TRANSFER CORRECT ? 
YES, THEN GO UG 1 MAP REGISTER WRITE 
NO, THEN ERROR IN THE TRANSFER 


WRITE CYCLE 


RESTORE MEMORY CSR 
CLEAR MAP REGISTER PAIR 


GET ADDRESS OF MAP REGISTER 
SET UPPER TWO ADDRESS BITS 

GET WRITE PATTERN 

SET FOR 2 XFER 

SET UBE FOR NPR-DATO-1 ts 

IS THE TRANSFER COMPLETE 

NO, THEN WAIT FOR IT TO COMPLETE 


WAS THE TRANSFER CORRECT ? 

YES, THEN GO DO A MAP REGISTER WRITE 
NO, THEN ERROR IN THE TRANSFER 
SECOND WORD OK TOO? 

IF SO, BRANCH 

NO, THEN ERROR IN THE TRANSFER 


SEQ 0125 
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UNIBUS DEVICE I/O PAGE WRITE CYCLE 
; DO A WRITE CYCLE TO BOOT ROM THAT SHOULD CAUSE A TIMEOUT 


3 
17$: 


#173000, @BE1BA 
@-1,8B8E1CC 

019%, @BE1VEC 
#340, @BE1PSW 


64 ,SP 

$BIT08 ,aBEICR2 
20$ 

33 


b 
& 
° 
3 
03041, 9BE1CR1 31 
40 3 
. 
6 


ADDRESS TO WRITE TO 
1 CYCLE 


POINT INTERRUPT VECTOR TO PROGRAM 
AT PRIORITY 7 
DATO-NPR 
LOWER PRIRITY 
DONE? 
WAIT TILL DONE 


DION’ T TIMEOUT ON BOOT ROM WRITE 
RAISE PRIORITY 


ADJUST STACK 

NXM SET? 

IF SET, BRANCH 

NXM NOT SET ON BOOT ROM WRITE 


UNIBUS DEVICE 1/0 PAGE WRITE CYCLE 


PC, IUBE 


#3,R1 
9177730,R2 
#30$ , @BE1VEC 
0340 ,@BE1PSW 
R2,88E1BA 
@3,@BE1CR2 


*eITS, 

#3041, 98E1CR1 
#B1T7,@BE1CR1 
2s$ 


+33 
$340 
35% 


04,SP 
oBIT08 ,aBE1CR2 
35$ 


+33 
(R2)+ 
PC, IUBE 
R1,21$ 


—— UP UBE 


Cc 
SET UP TIMEOUT VECTOR 


GET ADDRESS OF THE oP ani REGISTER 
SET UPPER TWO ADDRESS BITS 

GET WRITE PATTERN 

SET FOR 1 XFER 

ENABLE UNIBUS MAPPING 

SET UBE FOR NPR-DATO-1 XFER 

LOWER PRIORITY 

IS THE TRANSFER COMPLETE ? 

NO, THEN WAIT FOR IT TO COMPLETE 
WAIT FOR INTERRUPT 


ERROR - AN ILLEGAL CYCLE DID NOT TIMEOUT 
RAISE PRIORITY BACK 


ae STACK AND GO TO NEXT TEST 


IF SET, BRANCH 

NXM NOT SET ON ILLEGAL REFERENCE 
GET NEXT DIAGNOSTIC REGISTER 
INITIALISE UBE 

DO FOR ALL OF THEM 


SEQ 0126 
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SEQ 0127 
TEST - MAPPING REGISTERS TEST USING UBE 

5230 .SBTTL TEST - MAPPING REGISTERS TEST USING UBE 
5231 
5232 3@ THIS TEST WRITES DIFFERENT PATTERNS TO MAPPING REGISTERS USING 
5233 3* DATI AND DATO CYCLES THRU UBE. 
5234 
5235 3; @GNTST 
5236 Fy 
5237 3 ENABLE UNIBUS MAPPING 
5238 3 WRITE ALL MAPPING REGISTERS WITH “10” PATTERN 
5239 F READ ALL REGISTERS BACK CLEARING THE ONE JUST READ 
5240 3 IF ANY REGISTER DOES NOT HAVE THE PATTERN 
5241 3 . ERROR IN WRITING TO MAP REGISTERS 
5242 8 ENDIF 
5243 3 
5244 3: ENOTST ‘ 
5245 3 
5246 PONE RARAE ALES TEENS H RES PORE RAST S SORA OETA DPD SENIOR DMD 
5247 
5248 Fy J PSESOEHSSSSESEEHEHESSESESHSEESESESESESESESSESESSESESESESERESEEEEEEEEES 

s*TEST 64 MAPPING REGISTERS TEST USING UBE 

3 FFCSHSESSSESEARSSSASSSSESESSESEASESSESSESESEEESSEEESESESESSEESES ESAEEEAEEEE 

021666 000004 TST64: 

aH 021670 004737 002450 JSR PC, IUBE 3: CLEAN UP UBE 

3 
5251 ; DO DATO TO ALL 100 REGISTERS WITH 125252 AS PATTERN 
S252 3 
5253 021674 012777 170200 160252 MOV @MAPLOO,@BE1BA ; THE STARTING ADDRESS 
5254 021702 012777 177700 160242 MOV #-100,8BE1CC 3 80 WORDS TO WRITE 710 
5255 021710 012777 125252 160232 MOV #125252,88E10B ; THE PATTERN TO BE WRITTEN 
5256 021716 012777 000003 160236 MOV #3,8BE1CR2 ; ADDRESS <17-16> 
5257 021724 012777 003041 160224 Vv $3041 ,8BE1CR1 : GO DO DATO'S 
5258 021732 105777 160220 1$: TSTB 3B ; DONE BIT SET? 
5259 021736 100375 BPL 3 WAIT 
5260 8 
$261 3; CHECK THAT ALL REGISTERS WRITTEN OK 

3 
5263 021740 012701 170200 MOV @MAPLOO,R1 3 START WITH MAP REGISTER 1 
264 021744 010177 160204 MOV R1,@BE1BA s STARTING ADDRESS 
5265 021750 012777 177777 160174 2$: MOV #-1,8B8E1CC s . DO JUST 1 CYCLE 
5266 021756 012777 002041 160172 MOV $2041 ,aB8E1CR1 s . DATI FROM LOW MAP REGISTER 
5267 021764 105777 160166 3$: TSTB @BE1CR1 3; . DONE BIT SET? 
5268 021770 100375 BPL 3$ 3 . IF NOT, WAIT 
5269 021772 022777 125252 160150 CMP $125252.,988E10B8 ; . READ OK? 
5270 02. 001401 BEQ 4$ s . IF SO, BRANCH 
5271 022002 104033 ERROR +33 3 . ERROR IN WRITING AND — MAP REGISTERS 
5272 022004 012777 177777 160140 4$: MOV @-1,8B8E1CC : .- NOW DO HIGH MAP REGISTER 
5273 022012 012777 002041 160136 MOV $2041,8B8E1CR1 3 . DATI FROM HIGH REGISTER 
5274 022020 105777 160132 S$: TSTB @BE1CR1 3 . DONE BIT SET? 
5275 022024 100375 BPL 5$ 3 . IF NOT, WAIT 
5276 022026 022777 000052 160114 CMP #52 ,9BE108 3 . READ OK? 
5277 022034 001401 BEQ 6$ 3; . IF SO, BRANCH 
5278 022036 104033 ERROR +33 3 . ERROR IN WRITING AND READING MAP REGISTERS 
5279 022040 005021 6$: CLR (R1)+ ; . CLEAR REGISTER JUST WRITTEN 
5280 022042 005021 CLR (R1)>+ 3 

022044 022701 170376 CMP @MAPH37 ,R1 — 
3 


5281 ALL DONE? 
5282 022050 101337 BHI 2s IF NOT, BRANCH 
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TEST - UNIBUS DEVICE DATI CYCLE WITH CACHE ENABLED 
-SBTTL TEST - UNIBUS DEVICE DATI CYCLE WITH CACHE ENABLED 
3# THIS TEST WILL SEE IF THE CACHE to boa CORRECTLY 


3@ WHEN A UNIBUS DEVICE READ CYCLE I 
3% 


SEQ 0128 


BGNTST 


ENABLE THE CACHE 
ENABLE UNIBUS MAPPING 


CHECK INITIAL SETTING OF THE CACHE VALIO BITS 


SELECT THE CACHE VALIO BITS 
IF KMCR <15-9> NEQ tB80000000 THEN 
ew IN THE CACHE 


CHECK INITIAL SETTING OF THE CACHE AVAILABILITY BITS 


SELECT THE CACHE AVAILABLE SET BITS 
IF KMCR <14-9> NEQ *B8111111 THEN 

. ERROR IN THE CACHE 

ENDIF 


GO DO TWO CONSECUTIVE READS 
THE FIRST WILL ALLOCATE SET A 
THE SECOND WILL CAUSE A CACHE HIT IN SET A 


LET MAP REGISTER 1 POINT TO LOCATION 2000 

LET BE1BA := 20000 _ sOCTAL BOUNDARY READ 

LET BE1ICR2 2 0 sCLEAR UPPER 2 ADDRESS BITS 
LET BEICC := -2 sSET FOR TWO TRANSFERS 

SET UBE FOR “NPR- DATI-1 XFER 

SET OFF THE TRANSFER 

WAIT FOR THE TRANSFER TO COMPLETE 

DISABLE UNIBUS MAPPING 

TURN OFF THE CACHE 

SELECT THE CACHE VALIO.BITS 


CHECK IF THE CACHE OPERATED CORRECTLY 


IF Ae <15-9> NEQ@ 81001000 T 
A - RROR CACHE DID NOT GET UPDATED CORRECTLY 


SELECT THE CACHE AVAILBILITY BITS 
IF KMCR <15-9> NEQ *81000111 THEN 
ne CACHE DID NOT OPERATE CORRECTLY 


FF FSEHEEEEEESEEEEEEESEEEEESEASESSESESEEESESSESASSESSEESEESESESESEREEES 


s#TEST 65 UNIBUS DEVICE CYCLE WITH CACHE ENABLED 
§ SPREE EEEESERESEEEEEEEAEEESEEESEEESEEEEDEEESEEEEEEEESESEEEES 





M10 
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Té6S UNIBUS DEVICE CYCLE WITH CACHE ENABLED 
TST6S: 

PC, IUBE 


JSR 
177734 OBIT6,KMCR 
177734 “+ bpreatons 


INITIALIZE THE UBE 

ENABLE THE DMA CACHE 

IS THE CACHE PRESENT ? 

IF YES, CONTINUE WITH TEST 
OTHERWISE, DO END OF PASS 
INITIALIZE MAP REGISTERS 


8 
8 

3 

F 

. 

170374 8 
170376 $ 
MAPLOO F 

8 

3 

3 

3 

3 


ENABLE UNIBUS MAPPING 
ae DIAGNOSTIC MODE 

AKE SURE THAT VALID BITS SET 
DISABLE DIAGNOSTIC MODE 


172516 
177730 
177734 
177730 #81T08,0CSR 


GO DO TWO CONSECUTIVE READS STARTING AT A OCTAL BOUNDARY. 
THE FIRST READ WILL ALLOCATE CACHE SET A. THE SECOND READ 
WILL CAUSE A CACHE HIT IN SET A 


ponees 170204 : ome _— POINT MAP REGISTER TO LOCATION 200 
020000 157756 220000, @BE1BA SET TRANSFER ADDRESS TO OCTAL BOUNDARY 
000000 157756 #0, @BE1CR2 CLEAR UPPER 2 ADDRESS BITS 

012777 177776 157740 © @-2,8BE1CC SET UBE FOR TWO TRANSFERS 


TRANSFER 


012777 002041 157736 MO #2041,@BE1CR1 SET UBE FOR NPR-DATI- 2 ‘ty 
032777 000200 157730 2 $B1T7,@BE1CR1 IS THE TRANSFER COMPLETE ? 
001774 15$ NO, THEN WAIT FOR IT TO BE COMPLETE 


VALIO BITS IN THE KMCR 


PUT KMCR INTO R3 FOR MASKING 

MASK OUT BITS 0- 

ARE THE BITS SET CORRECTLY ? 

YES, THEN GO CHECK THE AVAILIBILITY BITS 
NO, THEN ERROR IN DMA CACHE 

172516 DISABLE MAPPING 

000100 AND CACHE 


000202 CMP 8202, 8BE108 DATA READ OK? 
TST66 33IF OK, EXIT TEST 
022272 3 +33 ; OTHERWISE ERROR IN CACHE 


013703 177734 
; 000777 
110000 
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TEST - WRONG PARITY AND CACHE 


5385 


5402 
5403 
5404 
5405 

06 


022274 
022276 


022302 
022310 


022474 


00 

012777 
012777 
012777 


012777 


N10 
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000100 
000100 


000000 
170206 
020000 


0000000 
177777 
002041 
000200 
177000 


000000 
172516 
000001 


000001 


000012 
000012 


172100 


001206 


022530 
022536 


SEQ 0130 


-SBTTL TEST - WRONG PARITY AND CACHE 


3# THIS TEST VERIFIES THAT IF DATA RECIEVED HAS BAD PARITY IT DOES NOT 
3# GET ALLOCATED IN CACHE. 


BGNTST 


WRITE rg y WITH BAD PARITY 
USING UBE DO DATI FROM THAT LOCATION 
IF — ARE NOT IN RESET CONDITION THEN 


ENDIF 


3 FSSSSSSSESASESSSSSESESSESSE SASSER SESEEESESESASEREEEEEEESERESEEEEESEERESD 
WR 


s*TEST 66 ONG PARITY AND CACHE 
“T+ ©-=->-— actin a aaa 


TST66: SCOPE 
JSR PC, IUBE 3; CLEAR UBE 
BIS #BITO2]!:B8IT00,80172100 ; SET WRONG PARITY IN MEMORY CSR 
BIC #3740 ,80172100 ; CLEAR CHECK BITS 
CLR aed 3; WRITE ede O WITH WRONG PARITY 
BIC #BITO02 ,80172100 ; CLEAR WRONG PARITY 
BIS #BITOS,.MMR3S ; ENABLE MEMORY MAPPING 
BIC #BITO6,KMCR : DISABLE JUST TO MAKE SURE 
BIS #BITO6,.KMCR ; ENABLE CACHE 
on = ; POINT MAP REGISTER TO LOCATION 200 
MOV #20000, 8BE1BA ; SET TRANSFER ADDRESS TO OCTAL BOUNDARY 
MOV #0,aBE1CR2 ; CLEAR UPPER 2 ADDRESS BITS 
MOV #-1,9BE1CC ; SET UBE FOR TWO TRANSFERS 
: GO DO THE TRANSFER 
r 
MOV $2041,aBE1CR1 3; SET UBE FOR NPR-DATI-1 ty 
15%: BIT #BIT7,@BE1CR1 ; IS THE TRANSFER COMPLETE ? 
BEQ 15% ; NO, THEN WAIT FOR IT TO BE COMPLETE 
BIT #177000,KMCR 3 WAS ALLOCATED? 
BEQ 16$ ; IF NOT, BRANCH 
ERROR +32 3; IF WAS, REPORT ERROR 
16$: CLR a#0 3: REWRITE O WITH RIGHT PARITY 
CLR MMR3 ; CLEAR MAPPING ENABLED 
BIC #BITOO,8#172100 
UBEM: 


FE FERKEKEKAEEESEREEEEESESERALERERESESESKAERSESESESEEAEERESESASESESESE 


s*TEST 67 
5p EEPAEEEEEEESEEEEEEEREREEEEEEEEEEEEESEREEEREEEESEESEESSESEEESEEERE 


TST67: 


BNE 
MOV 
MOV 


DUMMY TEST 


#1, $PASS 
$EOP 


#12, $EOPCT 
#12, $ENDCT 


; SECOND PASS? 

; IF NOT, GOTO EOP 
; AFTER 1ST PASS 

; PRINT EVERY 10TH 
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DUMMY TEST 
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SEQ 0131 


6 
: END OF PASS ROUTINE 
2 


-SBTTL END OF PASS ROUTINE 

S SPCROOEEHEEEESSESESEERSEESSESEEESESEESEEEEEHEEEESEEEEESESERORESE 
s*INCREMENT THE PASS NUMBER ($PASS) 

s*INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

s*¢TYPE “END PASS @XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YyrvryY” 
s@¢WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 

s¢IF THERES A MONITOR GO TO IT 

roe THERE ISN'T JUMP TO RESTART 


33:ZERO THE TEST NUMBER 

33ZERO THE NUMBER OF ae 
ssINCREMENT THE PASS NUMBER 

+ DON" T ALLOW A NEG. NUMBER 

3 sLOOP? 


$O00AGN 33YES 
‘Peter ssRESTORE COUNTER 


.65$ ssTYPE ASCIZ STRING 
64% 33GET OVER THE ASCIZ 
<12><15>/END PASS 0/ 


$PASS, -(SP) 33SAVE $PASS FOR TYPEOUT 
33TYPE PASS NUMBER 
33GO TYPE--DECIMAL ASCII WITH SIGN 
.67$ 33:TYPE ASCIZ STRING 
66% 33GET OVER THE ASCIZ 
4 TOTAL ERRORS SINCE LAST REPORT / 


SERTTL, -(SP) 33SAVE SERTTL FOR TYPEOUT 
33;TOTAL NUMBER OF ERRORS 
33GO TYPE--DECIMAL ASCII WITH SIGN 
ssTYPE CARRIAGE RETURN, LINE FEED 
s3sCLEAR ERROR TOTAL 
33GET MONITOR ADDRESS 
::BRANCH IF NO MONITOR 


ssACT1I1 
3 sRETURN 
$RTNAD: .WORD 
SENULL: y bh ssNULL CHARACTER STRING 


i 
s SYSMAC ROUTINES 
: 





Cil 
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SCOPE HANDLER ROUTINE 


$445 


SEQ 0132 


-SBTTL SCOPE HANDLER ROUTINE 

ff PCOAOSOEREEEEEESEESEEEESEEESEEEESEEEOEEORESESEEORESEESEESESEEES 
s*#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
s#AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>) 
3¢AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

3¢THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


022712 
022712 
022714 
022722 


023140 


011637 


3¢SW14°1 
3*@SW1ll*1 
3*SW0921 
3*SWO06=1 
3 @CALL 


3¢ 
$SCOPE : 

cK 
1$: 


BNE 
3s OOCOO0START 
$XTSTR: BR 


S$: 


BR 
6$:;@0000END OF 
BIT 


LOOP 


LOOP ON TEST 
INHIBIT ITERATIONS 
ON ERROR 


LOOP ON TEST IN SWR<5:0> 
3 sSCOPE=IOT 


yD ae aSwR 


sOVER 
OF = FOR THE XOR TESTEROOO00 


QOERRVEC, -( SP) 


oa — 


77060 
(5P)« , BOERRVEC 
$SVLAD 


(SP)+,CSP)+ 


(SP +, B@ERRVEC 
CODE FOR THE xOR’ TESTERGOOO® 
TO08 , @SWR 


(SP)+,$ TSTNM 

sOVER 

sERFLG 

3$ 

~ flat » SERFLG 

+ eta mma 

$LPERR, SLPADR 

sOVER 

sERFLG 

sTIMES 

1$ 

orn »OSWR 

$PASS 

1$ 

$ICNT 

foven sICNT 
sICNT 

sniCNT $TIMES 


$TSTNM 
$TSTNM, $TESTN 
(SP), $LPADR 


3sTEST FOR CHANGE IN SOFT-SWR 
3sLOOP ON PRESENT TEST? 
33YES IF SWi4*1 


33IF RUNNING ON THE “XOR” TESTER CHANGE 
bs THIS INSTRUCTION TO A “NOP” (NOP=240) 
ssSAVE THE CONTENTS OF THE ERROR VECTOR 
13SET FOR TIMEOUT 


GO 
3;CLEAR THE STACK AFTER A TIME OUT 
aa? on THE ERROR VECTOR 
3LOO0P ON THE PRESENT TEST 
33sLOOP ON SPEC. TEST? 
336R IF 
33SET DESIRED TEST NUM. FROM SWR 
33STRIP AWAY UNDESIRED BITS 
33ON THE RIGHT TEST? 
+3BR IF YES 
33HAS AN ERROR OCCURRED? 


3;68R IF NO 
MAX, ERRORS FOR THIS TEST OCCURRED? 
3;6R IF NO 

3:LO0P ON ERROR? 

3;68R IF NO 

33SET LOOP ADDRESS TO LAST SCOPE 


33ZERO THE ERROR FLAG 
33;CLEAR 7 NUMBER OF ITERATIONS TO MAKE 
3;ESCAPE TO THE NEXT TEST 
3s INHIBIT OTERATIONS? 
33;368R IF YES 
+f FIRST PASS OF PROGRAM 

INHIBIT ITERATIONS 
1 INCREMENT ITERATION COUNT 
33;CHECK THE NUMBER OF ITERATIONS MADE 
338R IF MORE ITERATION REQUTRED 
;sREINITIALIZE THE ITERATION COUNTER 
33SET NUMBER OF ITERATIONS TO DO 
3;COUNT TEST NUMBERS 
33SET TEST NUMBER IN APT MAILBOX 
33SAVE SCOPE LOOP ADDRESS 
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SCOPE HANDLER ROUTINE 


5446 


023144 


023176 


011637 
005037 
112737 
013777 
013716 
000002 


000001 


001350 
013746 
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001157 


000002 
000001 


000100 


023250 
025656 


023530 


023412 
001356 


001154 


001115 
155752 


001220 
001221 


001221 


sOVER: 


$MXCNT: 1 
-SBTTL TYPE ROUTINE 
fs POROOEEESESSSEEESEEEESEESEESEEEEESEESEEEORESESEESEESEEDEESEEEES 
s*#ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
3@THE ROUTINE =_. INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEE 


3s*NOTE1: 
3 *NOTE2: 
3*NOTES: 


3% 


61% 
62% 


2s: 


60%: 
3$: 


43%: 


5$: 
6%: 


Dil 
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Sd TN a 
on™ 
a1, $ERM 


$TSTNM, GOISPLAY 


$LPADR, (SP) 


Od. 
NULL CONTAINS THE ype Toe TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE 


3sSAVE ERROR LOOP ADDRESS 

ssCLEAR THE ESCAPE FROM ERROR ADDRESS 
ssONLY ALLOW ONEC1) ERROR ON NEXT TEST 

} DISPLAY TEST NUMBER 

33FUDGE RETURN ADDRESS 

ssFIXES PS 

33MAX. NUMBER OF ITERATIONS 


OF FILLER oS REQUIRED. 


NUMBER 
$FILLC CONTAINS THE CHARACTER TO FILL AFTE 


3@CAL 
761) USING A TRAP INSTRUCTION 
TYPE MESADR 


OAPTENV, SENV 


623 
@APTSPOOL , SENVM 
62% 


RO,61$ 
PC, $ATYS 


0 
@APTCSUP, SENVM 
60$ 


CRO)+, -CSP) 
as 

(SP)+ 

(SP )+,RO 
2,(SP) 

OHT CSP) 

8$ 

@CRLF ,CSP) 
S$ 


(SP )« 


$CHARCNT 


2s 
PC, $TYPEC 
MASAO 


$ 
$NULL , -( SP) 


ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


33IS THERE A TERMINAL? 


33;6R IF YES 
3;HALT HERE IF NO TERMINAL 
3 sLEAVE 
33SAVE RO 
3:GET ADDRESS A ASCIZ STRING 
3 sRUNNING IN APT MODE 
33NO.GO CHECK *FOR y*! a 
ts MESSAGE TO AP 


a een yo By APT 


ADORE 
StAPT CONSOLE SUPPRESSED 
33YES,SKIP TYPE OUT 
3sPUSH CHARACTER TO BE TYPED ONTO STACK 
3368R IF IT ISN’ T THE TERMINATOR 
33IF TERMINATOR POP IT OFF THE STACK 
s3sRESTORE RO 
ssADJUST RETURN PC 
3 sRETURN 
33BRANCH IF <HT> 


3s;BRANCH IF NOT <CRLF> 


33POP <CR><LF> EQUIV 
33TYPE A CR AND LF 


3;CLEAR CHARACTER COUNT 

33;GET NEXT CHARACTER 

+3G0 TYPE THIS CHARACTER 

331S IT TIME FOR a . CHARS. ? 
33IF NO GO GET NEXT CHA 

33;GET ® OF FILLER CHARS, “NEEDED 
33AND THE NULL CHAR 


SEQ 0133 
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TYPE ROUTINE 
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023530 


7$: 


Ell 
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1(SP) 

6$ 

PC, $TYPEC 
— 
PROCESSOR 
@ ,CSP) 


PC, $TYPEC 
7, $CHARCNT 


9$ 

(SP )+ 

2s 

asTKS 

10% 

as$TKB, -CSP) 


#177600, (SP) 
@$XOFF ,CSP) 
02% 


10$ 
2(SP), as TPB 
@CR,2¢(SP) 


1 
$CHARCNT 
$TYPEX 
OLF ,2(SP) 
$TYPEX 


(PC)+ 


SEQ 0134 


3;D0ES A NULL NEED TO BE TYPED? 

336R IF “wt POP THE NULL OFF OF STACK 
33GO TYPE A NULL 

3300 NOT COUNT AS A COUNT 

3 sLOOP 


ssREPLACE TAB WITH SPACE 
ACE 


33TAB STOP 
33sPOP SPACE OFF STACK 
33GET NEXT CHARACTER 


3:;CHAR IN KYBD BUFFER? 
33;B8R IF NOT 


33GET CHAR 
STRIP EXTRANEOUS BITS 
33WAS CHAR XOFF 

3;68R IF NOT 


3:WAIT FOR CHAR 


33;GET CHAR 
33STRIP IT 
33;WAS z XON? 
33;B8R IF NOT 


3sFIX STACK 
3sWAIT UNTIL PRINTER IS READY 


3;LOAD CHAR TO BE TYPED INTO DATA REG. 
331S CHARACTER A CARRIAGE RETURN? 
3;BRANCH IF NO 

amas CHARACTER COUNT 

83 

3231S CHARACTER A LINE FEED? 

3:BRANCH IF YES 

3;COUNT THE CHARACTER 

3sCHARACTER COUNT STORAGE 


g PC 
-SBTTL BINARY TO OCTAL CASCII) AND TYPE 
MPTTITITITITITITITIT TTT ttt tite 
3#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT 
7 hy rautaiaeaenea HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;sNUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 
33N*1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
33M=1 OR O 
331*TYPE LEADING ZEROS 
330*SUPPRESS LEADING ZEROS 


34 
3*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s#$TYPOS OR $TYPOC 


3 *CALL: 





Fil 
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SEQ 0135 
BINARY TO OCTAL CASCII) AND TYPE 
3¢ MOV . NUM,-CSP) ssNUMBER TO BE TYPED 
TY TYPON 3sCALL FOR TYPEOUT 
3* 
2 Ne tatninaae HERE FOR TYPEOUT OF A 16 BIT NUMBER 
34 $ 
34 MOV NUM, -CSP) 3sNUMBER TO BE TYPED 
3 TYPOC 3:CALL FOR TYPEOUT 
023534 017646 000000 $TYPOS: MOV ac SP), -CSP) } PICKUP THE MODE 
023540 116637 000001 023757 MOvVB 1(SP), SOF ILL 33LOAD ZERO FILL SWITCH 
023546 112637 023761 MOVB (SP )+, $OMODE +1 } NUMBER OF DIGITS TO TYPE 
023552 062716 000002 ADD ¢2,(SP) ssADJUST RETURN ADDRESS 
023556 000406 BR $TYPON 
023560 '12737 000001 023757 $TYPOC: MOVB #1, $OF ILL 33SET THE ZERO F ~~ SWITCH 
023566 112737 000006 023761 MOVB 06, $OMODE +1 33SET FOR SIX(6) DIGITS 
023574 112737 000005 023756 ‘$sTYPON: MOVB @5,S0CNT 33SET THE FrenaT ion COUNT 
023602 010346 MOV R3,-CSP) 33SAVE R3 
023604 010446 MOV R4,-CSP) 33SAVE R4 
023606 010546 MOV RS,-CSP) 33SAVE RS 
023610 113704 023761 MOVB $OMODE +1,R4 33GET THE NUMBER OF DIGITS TO TYPE 
023614 005404 NEG R4 
023616 062704 000006 ADD 06,R4 3;SUBTRACT IT FOR MAX. ALLOWED 
023622 110437 023760 MOVB R4, $OMODE 33SAVE IT FOR USE 
023626 113704 023757 MOVB SOFILL ,.R4 3;GET THE ZERO FILL SWITCH 
023632 016605 000012 MOV 12(SP),R5 3sPICKUP THE INPUT NUMBER 
023636 005003 CLR R3 3;CLEAR THE OUTPUT WORD 
023640 006105 1$: ROL RS ssROTATE MSB INTO “C" 
023642 000404 BR 3$ 3:GO DO MSB 
023644 006105 2s: ROL RS 33FORM THIS DIGIT 
023646 006105 ROL RS 
023650 006105 ROL 
023652 010503 MOV RS,R3 
023654 006103 3%: ROL R3 33;GET LSB OF THIS er 
023656 105337 023760 DECB $OMODE 3sTYPE THIS DIGIT? 
3662 BPL 7$ 7 3BR F NO 
177770 BIC #177770,R3 3:;GET RID OF JUNK 
BN~ 4$ 33TEST FOR O 
Ts! R4 3s;SUPPRESS THIS 0? 
BEQ S$ 33;6R IF YES 
4$: INC R4 33D0N'T SUPPRESS ANYMORE 0'S 
000060 BIS 6'0,R3 ssMAKE THIS DIGIT ASCII 
000040 S$: BIS 6’ 4R3 3sMAKE ASCII IF NOT ALREADY 
023754 MOVB R3,8$ 3:SAVE FOR TYPING 
023754 TYPE 8s 33GO TYPE wae DIGIT 
023756 7$: DECB $OCNT 3sCOUNT BY 
BGT 2s 3;6R IF MORE TO DO 
BLT 6$ 338R IF DONE 
INC R4 ssINSURE LAST DIGIT ISN’T A BLANK 
BR es 33GO DO THE LAST DIGIT 
6%: MOV (SP)+,RS 3sRESTORE RS 
MOV CSP )+,R4 3s sRESTORE a 
MOV (SP)+,R3 ssRESTORE R 
000002 000004 MOV 2(SP),4(SP) 33SET THE STACK FOR RETURNING 
MOV (SP)+,(SP) 
RTI 3 sRETURN 
8%: BYTE O 3sSTORAGE FOR ASCII DIGIT 
BYTE 1) 33 TERMINATOR FOR TYPE ROUTINE 
SOCNT: .BYTE 0 3;OCTAL DIGIT COUNTER 
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BINARY TO OCTAL 


5448 


023757 
023760 


024142 
024144 


(ASCII) AND TYPE 


000 
000000 $OMODE : 


-WORD 0 3 sNUMBER 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE 


SOFILL: 


-BYTE 


G11 
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0 


S"Q@ 0136 


33ZERO fe SWITCH 
OF DIGITS TO TYPE 
ROUTINE 


ff PPCOROREEESERERERESEEEEEESEEEERESEEESEESESEREERESEDESEEEESEEESS 
s*#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5S-DIGIT 
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 


s*BEFORE THE FIRST 
at, WITH SPACES. 


020200 
000020 


000055 


024176 
000040 


024166 


i$: 


2s: 
3$: 


4$: 


177777 
000010 


000 
105726 8$: 


177777 177776 
105013 9$: 


3 
$TYPDS: 


POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN 
THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


DIGIT OF 


NUM, -(SP) 


WILL BE TYPED 


33PUT THE BINARY NUMBER ON THE STACK 
33GO TO THE ROUTINE 


3:PUSH RO ON STACK 


ON STACK 
33SET BLANK SWITCH AND SIGN 
33;GET THE INPUT NUMBER 

33;68R IF INPUT IS POS. 

33MAKE THE BINARY NUMBER + 


3sSETUP THE OUTPUT POINTER 
33SET THE FIRST CHARACTER TO A BLANK 
3;CLEAR THE BCD aes 
+ 3GET THE CONSTAN 
33FGRM THIS BCD DIGIT 
DONE 


33;6R IF 
ssINCREASE THE BCD DIGIT BY 1 


3:ADD BACK THE CONSTANT 
3;CHECK IF BCD DIGIT=0 
33FALL THROUGH IF O 
33STILL DOING LEADING 0'S? 
33BR IF YES 


NO 
33sYES--SET THE SIGN 
ssMAKE THE BCD DIGIT ASCII 
3sMAKE IT A SPACE IF NOT ALREADY A DIGIT 
33;PUT THIS CHARACTER IN THE OUTPUT BUFFER 


33;GET THE LSD 
33GO — TO ASCII 
2. LSO THE FIRST NON-ZERO? 


33 
33YES--SET THE SIGN FOR TYPING 
33SET THE TERMINATOR 
33POP STACK INTO RS 
33POP STACK INTO R3 
33POP STACK INTO Re 
33POP STACK INTO R1 


Hit 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
024146 00 (SP)+,RO ssPOP STACK INTO RO 
024176 . $0BLK ssNOW TYPE THE NUMBER 
000002 000004 2(SP),4(SP) ssADJUST THE STACK 


(SP)+,(SP) 
3sRETURN TO USER 


SEQ 0137 


024176 $OBLK: .BLKW 4 

-SBTTL TTY INPUT ROUTINE 

fF PPORESRESEEEESEESEEESSERESEERESEEESEESEEEESEESESESESEEEESEEESES 
-ENABL LSB 

fF POSOOSRESESESLEESEEEESEEESEESESEEESESEESEEEEESEEEDHREREDEEEEESES 
s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

; #ROUT INE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 


024414 


022737 


021627 


000176 001140 
154722 
154716 
177600 
000007 
001134 
024743 
024750 
000176 


024761 


3 *WHEN hye” ~ TTY FLAG MODE. 


G.S 


15$ 

asTKS 

15$ 

a@sTKB, -CSP) 
@tC177,(SP) 
07,(SP)« 

15$ 
$AUTOB, 01 
15$ 

» $CNTLG 

. $MSWR 
SWREG, -( SP) 


7$ 
#tC177,(SP) 
(SP), 

10 


$ 
» $CNTLU 
6 ,SP 


15$ 
#100, a$TKS 


PC, $TYPEC 
(SP), #60 


33I1S THE SOFT-SWR SELECTED? 
3;BRANCH IF NO 

33CHAR THERE? 

33IF NO, DON’T WAIT AROUND 
33SAVE THE CHAR 

33STRIP-OFF THE ASCII 

33IS IT A CONTROL G? 

33NO, RETURN TO USER 

3sARE WE am Hy IN AUTO-MODE? 


3sSAVE SWREG FOR TYPEOUT 

33GO TYPE--OCTAL ASCIICALL DIGITS) 
s3PROMPT FOR NEW SWR 

+ CLEAR a 


UP CHAR 
3sMAKE IT 7-BIT ASCII 
33I1S IT A CONTROL-U? 
3;BRANCH IF NOT 
33;YES, ECHO CONTROL-U (tU) 
33IGNORE PREVIOUS INPUT 
33LET'S TRY IT AGAIN 
33I1S IT A <CR>? 
:sBRANCH IF NO 
33YES, 2. = FIRST CHAR? 


33sRE-ENABLE TTY xBD > INTERRUPTS? 
3;BRANCH IF NOT 

3;RE-ENABLE TTY KBD INTERRUPTS 
3 sRETURN 

3:ECHO CHAR 

3;CHAR < 0? ° 
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TTY INPUT ROUTINE 


SEQ 0138 


pe ¥ YES 
$3 
33;BRANCH IF YES 
STRIP - OFF ASCII 
331S THIS THE FIRST CHAR 
1 BRANCH IF YES 
33NO, SHIFT PRESENT 
CHAR a TO MAKE 


000002 17$: ) 
177776 _ (SP) F ESET IN NEW CHAR 
BR 33;GET THE NEXT ONE 
001174 18$: Saves ssTYPE 2?<CR><LF> 
BR 20$ ssSIMULATE CONTROL -U 
-OSABL LSB 


fF POSRESESERERESESSESEESEESEESEESEESEESEESEESEESEEEES ERE RESEEESES 
3*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ROCHR ssINPUT A aw CHARACTER FROM THE TTY 
RETURN HERE ssCHARACTER IS ON THE STACK 
3sWITH PARITY BIT STRIPPED OFF 


$ 
024470 : = (SP SP) 33PUSH DOWN THE PC 


),-€ 
4(SP),2¢SP) 33SAVE THE PS 
asTKS 


1$ 

asTKB,4(SP) 

@tC<177>,4(SP) 

4(SP), 023 33IS IT A CONTROL-S? 
3$ 3sBRANCH IF NO 

asTKS 3sWAIT FOR A CHARACTER 


2s 

FeinB, -CSP) 

$tC177,(SP) . gsMAKE IT 7-BIT ASCII 
(SP)+,@21 3:1S IT A CONTROL-Q? 
2s 331F NOT — IT 


1$ 

~~ deta 
4(SP),0140 

as 

4(SP), #175 

Gs 


040,4(SP) 
4$: 33GO BACK TO USER 
PrriTiiiitiii ti ttt itiiittiiiiitiit iti tiiitittt iii iii 
3*#THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


ROLIN 3sINPUT A STRING FROM THE TTY 
RETURN HERE 3sADDRESS OF FIRST CHARACTER. WILL BE ON THE STACK 
s3;TERMINATOR WILL BE A BYTE OF ALL O'S 
R3,-(SP) ssSAVE R3 
024726 : OSTTYIN,R3S 33GET ADDRESS 
024736 OSTTYINeS,.,R3 3 ;BUFFER FULL? 
4$ 338R IF YES 
3:3GO READ ONE CHARACTER FROM THE TTY 
112613 (SP)+,CR3) 1 3GET CHARACTER 
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024767 


024772 


122713 
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000177 
001174 
024724 
024724 
000015 


177777 
001176 


000004 
024726 


177770 


10$: 
4$: 
3$: 


9$: 


$TTYIN: 
$CNTLU: 


SCNTLG: 
$MSWR: 


Jil 
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#177,(R3) 
3$ 

» $QUES 

1$ 
(R3),98 
09% 
#15,(R3)+ 
es 


OsTTYIN, 4(SP) 
0 

0 

8. 
/tU/<15><12> 


/*G/<15><12> 
<15><12>/SWR = / 


$MNEW: .ASCIZ / NEW = / 


331S IT RUBOUT 
33SKIP IF NOT 

ssTYPE A ‘?' 

3sCLEAR THE BUFFER AND LOOP 
33ECHO THE CHARACTER 


3:;CHECK FOR RETURN 
33:LO0P ITF NOT RETURN 
4 o—, ae 15) 
3:TYPE A LINE FEED 
3sRESTORE R3 
; ADJUST THE STACK AND PUT ADDRESS OF THE 
33 FIRST ASCII CHARACTER ON IT 


3 sRETURN 

33STORAGE FOR ASCII CHAR. TO TYPE 
33 TERMINAT 

3sRESERVE 8 BYTES FOR TTY INPUT 
s;CONTROL "U” 


ssCONTROL “G” 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 

fF PRORESEEESESESEESEESESEEEEEESESSEEEESAEEEEEEEEEEERESEEEEEEEEDES 
3*THIS ROUTINE WILL READ AN OCTAL CASCII) NUMBER FROM THE TTY AND 
3;*CHANGE IT TO BINARY. 


R2 
@tC7,(SP) 
(SP)+,R1 
es 


(SP )+ 


33;READ AN OCTAL NUMBER 

33LOW ORDER BITS ARE ON TOP OF THE STACK 
3sHIGH ORDER BITS ARE IN $HIOCT 
3:PROVIDE SPACE FOR THE 
33INPUT NUMBER 

:sPUSH RO ON STACK 

3;PUSH R1 ON STACK 

33PUSH R2 ON STACK 

3sREAD AN ASCIZ LINE 

3:GET ADDRESS OF 1ST CHARACTER 
s;CLEAR DATA WORD 


33sPICKUP THIS CHARACTER 
s3IF ZERO GET OUT 

s3*2 

3344 

3348 


ssSTRIP THE ASCII JUNK 
3sADD IN THIS DIGIT 


3 ;LOOP 
3;CLEAN TERMINATOR FROM STACK 


SEQ 0139 
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READ AN OCTAL NUMBER FROM THE TTY 


010166 000012 R1,12(SP) 33SAVE THE RESULT 

010237 025072 ° 

012602 33POP STACK INTO R2 

012601 33sPOP STACK INTO R1 

012600 MOV (SP)+,RO 33sPOP STACK INTO RO 

000002 I 3 sRETURN 

000000 $HIOCT: .WORD 3sHIGH ORDER BITS GO HERE 
-SBTTL READ A DECIMAL NUMBER FROM THE TTY 
83 SHHEKSSESSESSESESSSAESSEAESASSESEAEAESESASSEAKEASSEEEAEESHEAEEEEEEEODAEEES 
3#THIS ROUTINE WILL READ A DECIMAL CASCII) NUMBER FROM THE TTY AND 
3*#CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 
3#ARE READ A “?” FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 
3*#THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 
3#USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS 
oe 32767 TO NEGATIVE 32768. 
34% : 
3% RDDEC :3sREAD A DECIMAL NUMBER 
3* :;NUMBER IS ON TOP OF THE STACK 


3 
$RDDEC: ssPROVIDE SPACE Hy 
MO 33THE INPUT NUMBER 
33PUSH RO ON STACK 


SEQ 0140 


83 OF 1ST CHAR. 
3sSAVE INCASE OF BAD INPUT 
WORD 


3sCLEAR DATA 
3sSIGN SET POSITIVE 
33SEE IF A MINUS i WAS TYPED 
3;68R IF NO MINUS SIGN 
3sSAVE FOR LATER USE 
ee “RL 3sPICKUP THIS a 


oO, R1 
S$ 
o'9,R1 


S$ 
@+tC7777,(SP) 33DON‘T LET NUMBER GET TO BIG 
S$ 33BR IF NUMBER WOULD OVERFLOW 


3342 

»- (SP) 3:SAVE FOR LATER 
3344 
3348. 


33#10. 
3;OVERFLOW ISN'T ALLOWED 


E 
33IS A DIGIT BETWEEN O € 9 


Ss 
3 ;OVERFLOW ISN'T ALLOWED 


3 ;LOOP 

3;CHECK IF NUMBER IS NEG 

33;B8R IF NO 

33 YES--NEGATE THE NUMBER 

33SAVE THE RESULT 

33sPOP STACK INTO R2 
(SP)+,R1 33;POP STACK INTO R1 
(SP)+,RO 33;POP STACK INTO RO 
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001174 


002574 


153522 


001000 


001110 
001166 


153636 
153626 


001116 
001114 
153566 


001220 
025406 


153506 


5$: 


6%: 


BR 1$ 
-SBTTL ERROR HANDLER ROUTINE 


3 sRETURN 
(SP )+ 3;CLEAN PARTIAL NUMBER FROM STACK 
CRO) 33SET A TERMINAT 


OR 
ssTYPE THE INPUT UP TO BAD CHAR, 
0 ssPOINTER GOES HERE 
» $QUES ge*?? “GR Gr" 
33TRY AGAIN 


3 FSSSASHSSSSSSSSHSSSSSEHSESSHESSESSESEESESHESESEHEHEKESESESESEEEHEEESED 
3*#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
3*#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
3*#AND GO TO ERTYPE ON ERROR 

3*#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

3*#SW1iS=1 HALT ON ERR 

3*#SWi3-1 
3#SW10=1 
3*#SW09=1 


3 *CALL 
3* 
$ERROR: 


20$ 


21$ 


22$ 
2s: 


3%: 


4$: 


INHIBIT ERROR TYPEOUTS 
ERROR 


BELL ON 

LOOP ON ERROR 

oN 3sERROR=EMT AND N=ERROR ITEM NUMBER 

UQUIET 3sTEST FOR USER-QUIET MODE 

9$ 3sBRANCH IF FIEI.O-SERVICE MODE 

RO 33IN CASE RO HAS A 03 IN IT (tC) 

PC ABORT 3sTEST FOR ABCRT CONDITION 
33TEST FOR CHANGE IN SOFT-SWR 

$ERFLG 33SET THE EFROR FLAG 


7$ 3;D0N‘'T LET THE FLAG GO TO ZERO 
$TSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
#BIT10,aSWR 33BELL ON ERROR? 


1$ 33NO - SKIP 

. $BELL 3 sRING a 

SERTTL 3;COUNT THE NUMBER OF ERRORS 

(SP), SERRPC + 3GET ADDRESS OF ERROR INSTRUCTION 
#2, SERRPC 


QsERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 


$B1T13,3SWR 33SKIP TYPEOUT IF SET 
20% 3sSKIP TYPEOUTS 
0 at :3GO TO USER ERROR ROUTINE 
@APTENV, SENV ssRUNNING IN APT MODE 

$ 33NO,SKIP APT ERROR REPORT 
sITEMB 21% 1 aSET ITEM NUMBER AS ERROR NUMBER 
een ne 3sREPORT FATAL ERROR TO APT 
0 
22% 3;APT ERROR LOOP 
aSwR ;sHALT ON ERR 

3$ 33SKIP IF CONTINUE 


AL R 
;sTEST FOR CHANGE IN SOFT-SWR 


¢BITO9, @SWR 3sLOOP ON ERROR SWITCH SET? 
4s 338R IF NO 

a (SP) 3sFUDGE RETURN FOR LOOPING 
sESCAP 3;CHECK FOR AN ESCAPE ADDRESS 
5$ 33;BR IF NONE 


SEQ 0141 


M11 
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ERROR HANDLER ROUTINE 
013716 001166 MOV $ESCAPE , CSP) ssFUDGE RETURN ADDRESS FOR ESCAPE 


022672 CMP @SENDAD , 8042 33sACT-11 AUTO-ACCEPT? 
; . BNE 6$ :;BRANCH IF NO 
HALT 33YES 


RTI 3 sRETURN 
ABORT ROUTINE FOR LCP/ORION UFD MODE 
ST UFOFLG sTEST FOR USER FRIENDLY MODE 
sIF NOT UFD THEN CONTINUE NORMAL OPERATION 
sIS IT A tZ ? 
sJUST GO BACK TO CHAIN IF IT IS (NO ERROR) 
3IS IS A tC ? 
sBR TO LOAD tC ON XXDP+ STACK (NO ERROR) 
sTEST FOR USER-QUIET MODE 
sIF FIELD-SERVICE MODE, CONTINUE NORMAL OPERATION 
; BECAUSE FIELD-SERVICE MODE DOES NOT GUIT ON ERROR 
sSET ORSERR THEN LEAVE 
000030 
000032 (32) 
sGET XXDP STACK LOC. INTO RO FROM MONITOR 
sFIND END OF STACK 


1$ 
177777 #'/,-1(RO) sLOAD SLASH OVER ZERO 
@'t,CRO)+ sLOAD UPARROW 
#'C,CRO)+ sLOAD C 
CRO) sMAKE NEW END TO STACK 
8 sNOW LEAVE 
ABORTE : sRESTORE EMT LOCATION (30) 
MO SAV32, 32 sRESTORE EMT PRIORITY LOCATION (32) 
+42 sGET OCA LOCATION INTO RO FROM MONITOR 
MO @-1,42(RO) sSET A -1 INTO LOCATION DRSERR IN MONITOR 
ABORTZ: #42,RO AND PUT THE ay by i ADDRESS IN RO 


8042 
$ENDAD 
NOABRT : PC 


TS NE 
3# THIS LOADS i NUMBER AND ERROR NUMBER AND THEN CALLS $ERRTYP 
113737 ERTYPE: 33;LOAD TEST NUMBER 
113737 3;AND ERROR NUMBER 
004737 PC, SERRTYP 3:GO REPORT ERRORS 
000207 RTS PC 3 sRETURN 

.SBTTL APT COMMUNICATIONS ROUTINE 

§ i POCOEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEO4OE64646006600660460000060008 
112737 026114 $ATY1: MOVB F 3:TO RCPORT FATAL ERROR 
112737 026112 $sATY3: B o 3310 TYPE A MESSAGE 
000403 BR 
112737 026114 $ATY4: #1,$FFLG 33TO ONLY REPORT FATAL ERROR 


$ATYC: 
RO, -C(SP) 33PUSH RO ON STACK 
R1,-CSP) 33PUSH R1 ON STACK 
026112 $MFLG 4 ae TYPE A MESSAGE? 
5$ 3IF NOT: BR 
000001 CMPB @APTENV, $ENV | OPERATING UNDER APT? 
3$ 331F NOT: BR 
000100 aoe el SES 11 SHOULD won. MESSAGES? 
000004 a4(SP),RO ; GET MESSAGE ADOR. 
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SEQ 0143 
APT COMMUNICATIONS ROUTINE 
$2,4(SP) :;BUMP RETURN ADOR. 
+3;SEE IF DONE W/ LAST XMISSION? 
33IF NOT: WAIT 
33PUT ADDR IN MAILBOX 
+ FIND END OF MESSAGE 


:3SUB START OF MESSAGE 

33sGET MESSAGE LNGTH IN WORDS 
RO, $MSGLGT 3sPUT LENGTH IN MAILBOX 
04, $MSGTYPE ssTELL APT TO TAKE MSG. 


S$ 
@4(SP),4$ s3sPUT MSG ADDR IN JSR LINKAGE 
:sBUMP RETURN ADDRESS 
3 sPUSH 177776 ON STACK 
3;CALL TYPE MACRO 


3 s SHOULD —— FATAL ERROR? 


NOT: BR 
33FINISHED LAST MESSAGE? 
33IF NOT: WAIT 
+ GET ERROR o 

URN ADOR. 


3 ;BUMP RET 
3sTELL APT TO TAKE ERROR 
3;CLEAR FATAL FLAG 
3;CLEAR LOG FLAG 
3;CLEAR MESSAGE FLAG 
33:POP STACK INTO R1 
33POP STACK INTO RO 


OG FLAG 
33;FATAL FLAG 


-EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL =100 
APTCSUP=040 
-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
Prtirtiiti titi titi iiiittttiitttt ti iiitii i Tittt titi tt i titi tty 
3#THIS ROUTINE USES THE “ITEM CONTROL BYTE” (C$ITEMB) TO DETERMINE WHICH 
s#ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” ($ERRTB), 
: eo Sum THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
104401 TYPE » $CRLF s"CARRIAGE RETURN” € “LINE FEEG” 
010046 MOV RO, -C(SP) + ESAV 0 
005000 CLR RO 3sPICKUP THE ITEM INDEX 
153700 BISB Qos ITEMB,RO 
001004 BNE 1$ +5 4 ITEM NUMBER IS ZERO, JUST 
sTYPE THE PC OF THE ERROR 
013746 SERRPC, -C SP) + SAVE $ERRPC FOR TYPEOUT 
3;ERROR ADDRESS 
104402 33GO TYPE--OCTAL ASCIICALL DIGITS) 
000426 BR 


33GET OUT 
005300 : ; :ADJUST THE INDEX SO THAT IT WILL 
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ERROR MESSAGE TYPEOUT ROUTINE 


SEQ 0144 


ao a8 WORK FOR THE ERROR TABLE 


RO 
@sERRTB,RO 3sFORM TABLE POINTER 
CRO)+,28 ssPICKUP “ERROR MESSAGE” POINTER 
3$ 33SKIP TYPEOUT IF NO POINTER 
ssTYPE THE “ERROR MESSAGE” 
0 41 CARRI MESSAGE” POINTER GOES HERE 
» $CRLF s"CARRIAGE RETURN” € “LINE FEED” 
CRO)+, 4% S sPICKUP "DATA Yo ell POINTER 
S$ 33SKIP TYPEOUT IF O 
ssTYPE THE “DATA HEADER” 
0 33"DATA HEADER” POINTER GOES HERE 
» $CRLF s3s"CARRIAGE RETURN” € “LINE FEED” 
CRO),RO ssPICKUP “DATA TABLE” POINTER 
7$ 33GO TYPE THE DATA 
(SP)+,RO ssRESTORE RO 
» $CRLF s3s"CARRIAGE RETURN” € “LINE FEED” 
PC 3 sRETURN 


a(RO)+,-CSP) eo @C(RO)+ FOR TYPEOU 
33GO TYPE--OCTAL ASCITCALL DIGITS) 
(RO) 33IS age ANOTHER NUMBER? 
6$ 33BR IF 
8% 4 OOP TwoC2) SPACES 


BR 7$ 
8$: . i Twoc2) SPACES 


EVEN 
-SBTTL TRAP DECODER 
fF OOROSEOSESEEEEESEESSSSEEESSEEEEEESESEEEEEEEEEEEEESEEERESEEEEEES 
3¢THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
3@AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
3*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3#GO TO THAT ROUTINE. 

33SAVE RO 


UP 
33GET RIGHT BYTE OF TRAP 
RO 3sPOSITION FOR INDEXING 
$TRPADCRO).RO 3; INDEX TO TABLE 
RTS RO 3:GO TO ROUTINE 
anes IS USE TO HANDLE THE “GETPRI" MACRO 
$TRAP2: MOV (SP), -CSP) 33sMOVE THE PC DOWN 
MOV 4(SP),2¢SP) ssMOVE THE PSW DOWN 
RTI ssRESTORE THE PSW 
-SBTTL TRAP TABLE 
3@¢THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3*BY THE “TRAP” INSTRUCTION. 
8 


3 
$TRPAD: . $TRAP2 
$ s sCALL*=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
3 sCALL*TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
3sCALL*TYPOS TRAP +3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
ssCALL*=TYPON TRAP +4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
3sCALL*TYPDS TRAP +S( 104405) TYPE DECIMAL NUMBER (WITH SIGN) 
026322 ssCALL=GTSWR TRAP +6(104406) GET SOFT-SWR SETTING 
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SEQ 0145 
TRAP TABLE 
026324 024206 $CKSWR ;;CALL®CKSWR = TRAP+7(104407) TEST FOR CHANGE IN SOFT-SwR 
026326 024470 $ROCHR ;;CALL*RDCHR = TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
026330 024620 $ROLIN 3;CALL*ROLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
026332 024772 $RDOCT ;;CALL*RDOCT = TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
026334 025074 $RDDEC ;;CALL*RDDEC _—‘ TRAP+13( 104413) READ A DECIMAL NUMBER FROM TTY 
5461 .SBTTL POWER DOWN AND UP ROUTINES 


§ I PROOAOREREOEOEEEESESESEOEEEEREEEDESEESEESEEREDESEEEEESEEEESEEES 
sPOWER DOWN ROUTINE 
026336 012737 026476 000024 ‘$PWRON: MOV @$ILLUP ,QOPWRVEC ;;SET FOR FAST UP 


026344 012737 000340 000026 MOV 0340, QOPWRVEC+2 3;PRIO:7 

026352 010046 MOV RO, -CSP) ssPUSH RO ON STACK 
026354 010146 NOV R1,-C(SP) 33sPUSH R1 ON STACK 
026356 010246 MOV R2,-(SP) ssPUSH R2 ON STACK 
026360 010346 MOV R3,-(SP) 3sPUSH R3 ON STACK 
026362 010446 MOV R4,-(SP) 3sPUSH R4 ON STACK 
026364 010546 MOV RS, -(SP) s3PUSH RS ON STACK 
026366 017746 152546 MOV aS chacke" s3PUSH @SWR ON STACK 
026372 010637 026502 ; MOV SP, $SAVR s3SAVE SP 

026376 012737 026410 000024 MOV @$PWRUP, Sopunvec t3SET UP VECTOR 
026404 000000 HALT 

026406 000776 BR --2 33sHANG UP 


PPE rrr iiiiiiiiiiiitiiiiitiiiiirti ty 
sPOWER UP ROUTINE 
026410 012737 026476 000024 $PWRUP: MOV OS ILLUP , @OPWRVEC 1 eo FAST DOWN 


026416 013706 026502 MOV $SAVR6 6.SP 33GET 

026422 005037 026502 CLR $SAVRE ssWAIT LOOP FOR THE TTY 

026426 005237 026502 1$: INC $SAVR6 ssWAIT FOR THE INC 

026432 001375 BNE is 330F WORD 

026434 012677 152500 MOV (SP)+,a@SwR ssPOP STACK INTO @SwWR 

026440 012605 MOV (SP)+,RS 33POP STACK INTO RS 

026442 012604 MOV (SP)+,R4 33POP STACK INTO R4 

026444 012603 MOV (SP)+,R3 33POP STACK INTO R3 

026446 012602 MOV (SP)+,R2 s3sPOP STACK INTO R2 

026450 012601 MOV (SP)+,R1 4 STACK INTO R1 

026452 012600 MOV (SP )+,RO sPOP STACK INTO RO 

026454 012737 026336 000024 MOV O$PWRON, BOPURVEC + sSET UP THE POWER DOWN VECTOR 
026462 012737 000340 000026 MOV 0340, 90PWRVEC+2 5 ;PRIO:7 

026470 104401 TYPE sREPORT THE POWER FAILURE 

026472 026504 SPWRMG: .WORD $sPOWER ssPOWER FAIL MESSAGE POINTER 
026474 000002 RTI 

026476 000000 $ILLUP; HALT ss THE POWER UP SEQUENCE WAS STARTED 
026500 000776 BR 2 33 BEFORE THE POWER DOWN WAS COMPLETE 
026502 000000 $SAVR6: O s3PUT THE SP HERE 


026504 015 012 120 $POWER: .ASCIZ <15><12>"POWER” 
026507 117 pH 105 


-EVEN 
5462 
5463 e 
5464 3s ERROR MESSAGES 
5465 5 
5466 


5467 026514 124 111 1:5 EM1: -ASCIZ /TIMEQUT ON ACCESSING A MAP REGISTER/ 
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5468 


5469 


5470 


5471 


026777 
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POWER DOWN AND UP ROUTINES 


EM2: 


EM3: 


EM4;: 


EMS: 


-ASCIZ /MAP REGISTER COULD NOT BE CLEARED/ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/MAP REGISTER COULD NOT HOLD PATTERN/ 


/MAP REGISTER HAS NOT BEEN ADDRESSED CORRECTLY/ 


/ THERE WAS NO DIFFERENCE FOUND BETWEEN HI AND LO MAP REGISTERS/ 


SEQ 0146 


Ele 
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POWER DOWN AND UP ROUTINES 


SEQ 0147 


-ASCIZ /ERROR IN BITS 3-6,9-14 IN THE DCSR/ 


-ASCIZ /OCSR DID NOT RESPOND PROPORLY ON RESET/ 


-ASCIZ /TIMEOUT HAS OCCURED ON ACCESS TO THE DCSR/ 


-ASCIZ /KMCR BITS 0-5,8 DID NOT GET SET CORRECTLY/ 
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5476 


5477 


5478 


ie) 
5479 


5480 


027253 


027522 


Fie 
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POWER DOWN AND UP ROUTINES 


EM1le: 


EM13: 


EM14: 


EM15: 


EM16: 


-ASCIZ /TIMEQUT HAS OCCURED ON ACCESS TO THE KMCR/ 


-ASCIZ /ERROR IN DATA PATH PERFORMING DATA OUT/ 


-ASCIZ /ERROR IN DATA OUT CYCLE/ 


-ASCIZ /ERROR IN DATA IN CYCLE/ 


-ASCIZ /DDR TS NOT 0, WHEN DCRS<2-1> SELECTS UNIBUS LINES/ 


SEQ 0148 
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5461 


5482 


5483 


5484 


027770 


122 
062 
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POWER DOWN AND UP ROUTINES 


EM17: 


EM20: 


EM21: 


EM22: 


-ASCIZ /OCSR<07> DOES NOT BECOME 1/ 


-ASCIZ /INDIRECT ADDRESSING OF MAPPING REGISTER PAIRS/ 


-ASCIZ /REGISTER PAIR 40 PERFORMS RELOCATION/ 


-ASCIZ /NXM CONDITION COULD NOT BE CREATED THRU ALU/ 


SEQ 0149 


Hie 
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POWER DOWN AND UP ROUTINES 
027773 


-ASCIZ /ALU ERROR/ 


-ASCIZ /CPU CACHE ERROR/ 


-ASCIZ /KMCR<4-0> DON’T DISABLE MEMORY RESPONSE/ 


-ASCIZ /KMCR DOES NOT REFLECT EXPECTED STATUS OF THE CACHE/ 


-ASCIZ /ERROR IN CACHE TAG REGISTERS/ 





Iie 


KTJ11-B8 DIAGNOSTIC MACRO M1200 25-JUL-84 17:10 PAGE 64-21 


POWER DOWN AND UP ROUTINES 
5490 030236 EM3O: .ASCIZ /ERROR IN THE DMA CACHE DATA RAMS/ 


SEQ 0151 


-ASCIZ /ERROR IN THE M9312 BOOT ROM SECTION/ 


-ASCIZ /ERROR IN ARBITRATION LOGIC USING UBE/ 


-ASCIZ /ERROR TRYING TO EXECUTE DMA CYCLES THRU UBE/ 


-ASCIZ /ERROR IN THE UNIBUS MEMORY TEST/ 





Jle 
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POWER DOWN AND UP ROUTINES 


-ASCIZ /UNEXPECTED TIMEOUT HAS OCCURED/ 


-ASCIZ /UNIBUS TIMEOUT DID NOT WORK CORRECTLY/ 


-ASCIZ /OCSR<3> DID NOT DISABLE UBA ROM RESPONSE/ 


-ASCII /TEST ERROR ERROR ADDRESS/<12><15> 


-ASCIZ / @ 
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$501 


5502 


5503 


5504 


5505 


5506 


$507 


031211 


K1e2 
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POWER DOWN AND UP ROUTINES 


123 DH3 


000 
123 DHS: 


-ASCII 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCITI 


/TEST 


/TEST 


/TEST 


/TEST 


ERROR 


PC 


ERROR 


PC 


ERROR 


PC 


ERROR 


ERROR 


ERROR 


ERROR 


ERROR 


GOOD BAD/<12><15> 


DATA DATA ADDRESS/ 


GOOD BAD/<12><15> 


ADDRESS ADDRESS/ 


HI LOW/<12><15> 


MAP MAP/ 


GOOD BAD/<12><15> 


SEQ 0153 


KTJ11-8 DIAGNOSTIC 


5508 


5509 


0 
5510 
.¢) 


.¢) 
$511 
e) 


t¢) 
5512 


0 
5513 


5514 


031214 
031217 


0 

031441 
031444 
031447 
031452 
031455 


Lie 
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POWER DOWN AND UP ROUTINES 


OH13: 


OH16: 


OH20: 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCII 


-ASCIZ 


/TEST 


/TEST 


/TEST 


PC 


ERROR 


PC 


ERROR 


PC 


ERROR 


PC 


® DATA DATA/ 


ERROR ODOR PATTERN/<12><15> 
a/ 

ERROR/<12><15> 
o/ 


ERROR KMCR PAIR/<12><15> 


% FAILED/ 


SEQ 0154 


KTJ11-B DIAGNOSTIC 
POWER DOWN AND UP ROUTINES 


0 
$515 
.) 


031732 


001716 
001122 
001716 
001124 
000000 


001716 
001120 


Mie 
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001116 
000000 


001116 
001126 


001116 
001122 


001714 


001714 
001122 


001714 
000000 


DH23: 


-ASCII /TEST ERROR ERROR GOOD BAD ADDRESS/<12><15> 


-ASCIZ / @ DATA DATA <22-16> <13-0>/ 


-ASCII /TEST ERROR ERROR ADDRESS ADDRESS/<12><15> 


-ASCIZ / @ 


. WORD 
- WORD 


. WORD 


<22-16> <15-0>/ 


TEST, $ERRPC ,ERRNUM, $BDADR ,O 
TEST, $ERRPC ,ERRNUM, $GDDAT, $BDDAT , $BDADR,O 


TEST, SERRPC ,ERRNUM, $GDADR , $BDADR,O 


SEQ 0155 





Nie 
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POWER DOWN AND UP ROUTINES 


5523 031740 
031746 
$524 031754 
031762 


5525 031764 
031772 
032000 


032006 
5527 032010 

032016 

032024 
5528 032030 

032036 
5529 032044 

032052 
5530 


001714 
000000 
001714 
001714 
000000 
001714 


001714 
172354 


001714 
000000 
001714 


OT4: 

DOT16: 
DOT20: 
OT21: 
DOT23: 


OT27: 
OT30: 


TEST, SERRPC ,ERRNUM, $GDDAT , $BDDAT ,O 

TEST, SERRPC ,ERRNUM,O 

TEST, SERRPC ,ERRNUM,KMCR, $BDADR ,O 

TEST, $BDADR , ERRNUM,O 

TEST, $ERRPC ,ERRNUM, $GDDAT , $BDDAT , KIPAR6, $BDADR,O 


TEST, SERRPC ,ERRNUM,MAPHO1 ,MAPLO1,0 
TEST, $ERRPC ,ERRNUM,MAPLOO,0O 
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SEQ 0157 

SYMBOL TABLE 

ABASE = 000000 BEIBA 002154 OH1 030702 ERROR = 104000 MAPH16= 170272 
ABORT 025466 BEICC 002152 OH13 ©: 031273 ERRVEC* 000004 MAPH17= 170276 
ABORTC 025520 BEICLR 002160 OH16 ©: 031346 ERTYPE 025626 MAPH2 = 170212 
ABORTE 025564 BEICRi 002156 OH2 030751 GTSWR = 104406 MAPH20= 170302 
ABORTZ 025610 BEICR2 002162 OH20 031405 HT —_= 000011 MAPH21* 170306 
ACDW1 = 1 002150 DH23 =: 031465 IOTVEC= 0000 MAPH22= 170312 
ACDW2 = 000000 BELINT 001724 DH27 031576 I 002450 MAPH23= 170316 
ACPUOP= 000000 BEIPSW 002166 DH3 031043 KDPARO= 172360 MAPH24* 170322 
ADDWO = 000000 BEISV. 015212 DH4 031133 KOPAR1= 172362 MAPH25= 170326 
ADDW1 = 000000 BE1VEC 031211 KDPAR2= 172364 = 170332 
ADDW10= 000000 002174 DISPLA 001142 KDPAR3= 17 MAPH27= 170336 
ADDW11= 000000 BE2CC 002172 DISPRE 000174 KDPAR4*= 172370 MAPH3 = 170216 
ADDW12= 000000 BE2CLR 002 OSWR = 177570 KOPARS= 172372 MAPH30= 170342 
ADDW13= 000000 BE2CR1 002176 oT1 031674 KDPAR6= 172374 MAPH31= 170346 
ADDW14= 000000 BE2CR2 002202 0116 031754 KOPAR7= 172376 MAPH32= 170352 
ADDW1S= 000000 002170 OT2 031706 KDPDRO= 172320 MAPH33= 170356 
ADDW2 = 000000 BE2INT 001726 D120 031764 KDPOR1= 172322 MAPH34= 170362 
ADDW3 = 000000 BE2PSW 0T21 03 KDPOR2= 172324 MAPH3S= 170366 
ADDW4 = 000000 015232 0123 032010 KDPOR3= 172326 MAPH36= 170372 
ADDWS = 000000 BE2VEC 002204 D127 032030 KDPOR4= 172330 MAPH37= 170376 
ADDW6 = 000000 = 000001 OT3 031724 KOPORS= 172332 MAPH4 = 170222 
ADDW7 = 000000 BITOO = 000001 D130 2044 KDPOR6= 172334 MAPHS = 170226 
ADDWB = 000000 BITO1 = 000002 O14 031740 KDPDR7= 172336 MAPH6 = 170232 
ADDW9 = 000000 BITO2 = 000004 EMTSAV 00 KIPARO= 172340 MAPH7 = 170236 
ADEVCT= 000000 BITO3 = 000010 EMTVEC= 000030 KIPAR1= 172342 MAPLO = 170200 
ADEVM = 000000 BITO4 = 000020 EM1 026514 KIPAR2= 172344 MAPLOO= 170200 
AENV = 000000 BITOS = 000040 EM10 027154 KIPAR3= 172346 MAPLO1= 170204 
AENVM = 000000 BITO6 = 000100 EM11 027226 KIPAR4= 172350 MAPLO2= 170210 
AFATAL= 000000 BITO7 = 000200 EMi2 027300 KIPARS= 172352 MAPLO3= 170214 
AMADR1= 000000 BITOB = 000400 EM13. 027352 KIPAR6= 172354 MAPLO4= 170220 
AMADR2= 000000 BITO9 = 001000 EM14 (027421 KIPAR7= 172356 MAPLOS= 170224 
AMADR3= 000000 BIT1 = 000002 EMS 027451 KIPORO= 172300 MAPLO6= 170230 
AMADR4= 000000 BIT10 = 002000 EM16 KIPOR1= 172302 MAPLO7= 170234 
AMAMS1= 000000 BIT11 = 004000 EM17 027562 KIPOR2= 172304 MAPL1 = 170204 
AMAMS2= 000000 BIT12 = 010000 EM2 026560 KIPDR3= 172306 MAPL10= 170240 
AMAMS3= 000000 BIT13 = 020000 EM20 027615 KIPOR4= 172310 MAPLi1= 170244 
AMAMS4= 000000 BIT14 = 040000 EM21 027673 KIPORS= 172312 MAPL12= 170250 
AMSGAD= 000000 BIT1S = 100000 EM22 027740 KIPOR6= 172314 MAPL13= 170254 
AMSGLG= 900000 BIT2 = 000004 EM23 030014 KIPOR7= 172316 MAPL14= 170260 
AMSGTY= 000000 BIT3 = 000010 EM24 030026 KMCR © 177734 MAPL1S* 170264 
AMTYP1= 000000 BIT4 = 000020 EM25 030046 Fs 12 MAPL16= 170270 
AMTYP2= 000000 BITS » 000040 030116 MAPHO = 170202 MAPL17= 170274 
AMTYP3= 000000 BIT6 = 000100 EM27 030201 MAPHOO= 170202 MAPL2 = 170210 
AMTYP4= 000000 BIT7 = 000200 EM3 026622 MAPHOL= 170206 MAPL20= 170300 
APASS = 000000 BIT8 = 000400 EM30 MAPHO2= 170212 MAPL21= 170304 
APRIOR= 000000 BIT9 = 001000 EM31 030277 MAPHO3= 170216 MAPL22= 170310 
APTCSU= 000040 - BPTVEC= 14 EM32 (030343 MAPHO4= 170222 MAPL23= 170314 
APTENV= 000001 CCR = 177746 EM33. 030410 MAPHOS= 170226 MAPL24= 170320 
APTSIZ= 000200 CKSWR = 104407 EM34 © 030464 MAPHO6= 170232 MAPL25= 170324 
APTSPO= 000100 CR = 000015 EM35 030524 MAPHO7= 170236 MAPL26= 170330 
ASWREG= 000000 CRLF = 000200 EM36 ©: 030563 MAPH1 = 170206 MAPL27= 170334 
ATESTN= 000000 CTBLE 002022 EM37 030631 MAPH10= 170242 MAPL3 = 170214 
AUNIT = 000000 OCSR = 177730 EMA 026666 MAPH11= 170246 MAPL30= 170340 
AUSWR = 000000 ODIN 002222 EMS 026744 MAPH12= 170252 MAPL31= 170344 
AVECT1= 000000 ODISP = 177570 EM6 027042 MAPH13= 170256 MAPL32= 170350 
AVECT2= 000000 DDOUT 002210 M7 027105 MAPH14= 170262 MAPL33= 170354 
BCSR = 177520 ODR = 177732 ERRNUM 001714 MAPH1S= 170266 MAPL34= 170360 





C13 
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SYMBOL TABLE 


SEQ 0158 


001120 


sFILLS $SETUP= 





D135 
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SYMBOL TABLE SEG 0159 
$STUP = 177777 $TKS 001144 $TRAP2 026274 $TYPEC 023412 $VECT1 001250 

$SVLAD 023126 $TMPO 8 =©—.001160 $TRP = 000014 $TYPEX 023532 $VECT2 001252 

sSvPC = 0002352 $TMP1 001162 $TRPAD 026306 $TYPOC 023560 $xOFF = 000023 

$SWR = 167400 $™N == 0000 $TSTM 0002 $TYPON 023574 $XON = 2 

$SWREG 001222 $T 0011 $TSTNM 001102 $TYPOS 023534 $XTSTR 022724 

$SWRMK= 000300 $TPFLG 001157 $TTYIN 024726 $UNIT 001212 $$GET4= 

STESTN 001204 $TPS 001150 $TYPDS 023762 $UNITM 000242 SOFILL 023757 

$STIMES 001164 $TRAP 026252 $TYPE 023200 $USWR 001224 .$X% = 000232 


. ABS. 032056 000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 56448 WORDS ( 221 PAGES) 
DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 

ELAPSED TIME: 00:03:35 

COK TAA, COKTAA/NL : TOC/-SP=ORION.MLB/ML ,COKTAA.P11/0S:GBL 


